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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS DIAGNOSTIC PROGRAM VERIFIES PROPER PROPER OPERATION OF THE 
LNO1 ELECTRONIC PRINTER AND ITS ASSOCIATED M7258 CONTROL UNIT 
WHICH INTERFACES TO THE POP-11 CPU. THE BROAD RANGE OF TESTS 
ASSURES A COMPREHENSIVE TEST OF THE FUNCTIONAL CAPABILITY OF 
THE PRINTER. THE INDIVIDUAL TESTS ARE IDENTIFIED AS 


FOLLOWS: 
TEST 1 INTERFACE LOGIC 
TEST 2 DATA TRANSFER PATHS 
TEST 3 PRINTABLE CHARACTERS 
TEST 4 NON-PRINTABLE CHARACTERS 
TEST 5 PRINT CONTROL 
TEST 6 MULTIPLE LINE ADVANCE 
TEST 7 OVERSTRIKE 
TEST 8 INTERLOCK 
TEST 9 ABSOLUTE AND RELATIVE POSITIONING 
TEST 10 LINE FEED NEWLINE MODE 
TEST il POWER-UP DEFAULT 
TEST ile TABS 
TEST 15 MARGINS 
TEST 14 UNDE 


RL INE 
TEST 15 PARTIAL LINE UP, PARTIAL LINE DOWN 
TEST 16 DRAW VECTORS 

TEST 17 JUSTIFY 

TEST 18 PORTRAIT 


FONT 
TEST 20 MISCELLANEOUS CONTROL FUNCTIONS 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+. . 

FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 

TO THE XXDP+ USER’S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 

1.2 SYSTEM REQUIREMENTS 
A TEST STATION IS ght ge CONSISTING OF A PDOP-11 CPU WITH A 
MINIMUM OF 28K WORDS OF MEMORY AND A CONSOLE TERMINAL WITH 
INTERFACE AT DEVICE ADORESS 777560. THE SYSTEM ALSO REQUIRES 
AN XXDP SUPPORTED DEVICE SUCH AS AN RKOS/RK11 DISK ORIVE TO 
AFFORD A MEANS TO LOAD THE DIAGNOSTIC PROGRAM. 

1.3 RELATED DOCUMENTS AND STANDARDS 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


SEQ 2003 
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THIS DIAGNOSTIC IS COMPATIBLE WITH ALL MEMBERS OF THE PDP-11 
COMPUTER FAMILY. THE DIAGNOSTIC IS INTERFACED TO THE POP-11 
DIAGNOSTIC SUPERVISOR THROUGH WHICH IT INTERFACES TO THE 

NV IRONMENT . 


THE APPLICABLE POP-11 CPU, MEMORY, AND PERIPHERALS SHOULD BE 
RUN TO VALIDATE PROPER OPERATION OF THE SYSTEM BEFORE RUNNING 
THIS DIAGNOSTIC. 


1.5 ASSUMPTIONS 


THE PRINTERS UNDER TEST SHOULD HAVE POWER APPLIED AND BE 
PLACED ON LINE IN READINESS FOR TESTING. THE LINE PRINTER 
MUST HAVE ITS OWN M7258 CONTROLLER SET UP AT A DEVICE 
ADDRESS. THE DIAGNOSTIC PROVIDES A DEFAULT DEVICE ADDRESS OF 
777514 WHICH CAN BE USED WHEN A LINE PRINTER IS BEING TESTED. 
IT WILL BE NECESSARY FOR THE OPERATOR TO RUN THE LINE PRINTER 
OFF LINE IN THE SELF TEST MODE BEFORE RUNNING THE DIAGNOSTIC. 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XxXOP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

ExIT RETURN TO XXDP>+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED a. BE ACTIVE AT START TIME 
DROP DEACTIVATE A UNIT 
PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 
OISPLAY TYPE A LIST OF ALL DEVICE INFORMATI 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
1JU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


2.e SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
C OF THE LEGAL 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMAND ALL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 
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IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 
SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - A ap ae Ue 10. 
THIS LIST WILL CAUSE TESTS 1, 5,7,5,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS:0D0000 EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 


/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 

7EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (ODDDD = 1 TO 64000) 

/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS:1-5/PASS: LOOO/EOP: 100 
THE EFFECT OF THIS COMMAND WILL SE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “/TES:1-5" INSTEAD OF “/TESTS:1-5”. 


Conan IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EOP UNITS 

START Xx Xx x x x 

RESTART xX ® x H x 

CONT INUE x x x 

PROCEED x 

DROP Xx 
x 

PRINT 

DISPLAY x 

FLAGS 

ZFLAGS 

EXIT 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET re THE FLAGS SWITCH. FLAGS 


Ess $ 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED By THE LAST FLAG SWITCH, 


Gl 
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FLAG EFFECT 
HOE HALT ON ERROR CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
LOE LOOP ON ERROR 
IER* INHIBIT ALL ERROR REPORTS 
IBRe INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IxR*s INHIBIT EXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX ag 

PRI DIRECT MESSAGES TO LINE PRINT 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


TOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT ) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHTBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?” 

YOU MUST ANSWER “Y" AFTER A START COMMAND UNLESS THE "HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY BS = 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. : | 


@JNITS (0D) ? 1 

UNIT 1 

LP11 ADDRESS: (0) (177514) ? 
INTERRUPT VECTOR : (0) (200) 


2.5 SOFTWARE QUESTIONS 


? 
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AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


RUN MANUAL INTERVENTION TESTS (N) ? DEFAULT IS NO 
AUTODROP ERROR COUNT (0D) 5 ? DROPS ANY UNIT FROM TEST WHICH EXCEEDS SPECIFIED NO. OF ERRORS 
2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 

UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL ORIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


Me pittenen a A MORE oe rags METHOD, SUPPOSE YOU ARE TESTING 


XY11 
a CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG ae CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? poe > a 
SUB-DEVICE @ (0) 2? O<CR> 
Q-FACTOR (0) O ? eR 


UNIT 2 aoe 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) 2? 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 

CSR ADDRESS (0) t. 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 3 
UNIT 


4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ Se ?.. S<¢CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR>» 


SEQ 0007 
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3-FACTOR (0) 0 2? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 1€9000<CR> 
SUB-DEVICE # (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1 ? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
Eo THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


® UNITS (0) ? 8<CR> 


UNIT 

CSR ADDRESS (O) ? usta 
SUB-DEVICE # (0) ? 0O,1<CR> 
Q-FACTOR (0) 0 ? 1, O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
Q-FACTOR (0) 0? O<CR> | 


UNIT 7 pias 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 2? 1<CR> — 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
ge AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO erg ANO Pe FACTORS go aot «cure eo 


ONL 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2. 3, 4 AND 5 WERE SPECIFIED. (CIF THE SUB-DEVICE WERE SPECIFIED 


SEQ 0008 


JIL 
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BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE — COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW 


@ UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0-7<CR> 
Q-FACTOR C0) 0 ? 0.1.0,..+21-1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


TYPE “START” 
ANSWER THE “CHANGE HW” QUESTION WITH “Y” 

ANSWER ALL THE HARDWARE QUESTIONS 

ANSWER THE “CHANGE SW” QUESTION WITH “N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 

DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 

ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC; XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 


~ oO wl & 


SEQ 0009 


Kl 
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NUMBER = ERR 

UNIT NUMBER = 0 - N (CN IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERR’R MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REG.STER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR" OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


TYPE = ERROR TYPE asx FATAL, DEV FATAL, HARD OR SOFT) 
OR es ¥ 


ERROR DESCRIPTION 

1 “PRINTER ERROR” 
ERROR CONDITION IN THE PRINTER. 

2 “PRINTER NOT READY” 
PRINTER NOT READY TO ACCEPT DATA. 

3 “PRINTER DID NOT INTERRUPT” 
FAILURE IN INTERFACE LOGIC. 

4 “LOADING PRINTER BUFFER DOES NOT CLEAR READY” 
FAILURE IN INTERFACE LOGIC. 

5 “PRINTER INTERRUPTED AT SAME LEVEL AS THE 
PROCESSOR” 
FAILURE IN INTERFACE LOGIC. 

6 “PRINTER ERROR” | 

ERROR CONDITION IN THE PRINTER. 

7 “PRINTER NOT READY’ 
PRINTER NOT READY TO ACCEPT DATA. 

8 “PAPER OUT INTERLOCK SWITCH FAILURE” 
FAULTY INTERLOCK SWITCH 

9 “PAPER TRAY MANOLE INTERLOCK SWITCH FAILURE “ 
FAULTY INTERLOCK SWITCH 

10 “FRONT DOOR INTERLOCK SWITCH FAILURE” 
FAULTY INTERLOCK SWITCH 

“NO TE oe 


ERROR MESSAGES #11 AND #12 HAVE BEEN ELIMINATED 
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13 “INTERRUPT SERVICING FOR THE FOLLOWING 
DEVICE DID NOT OCCUR” 
GLOBAL ERROR INDICATING INTERRUPT FOR 
DATA TRANSFER DID NOT OCCUR. 


14 “PRINTER STATUS ERROR” 
GLOBAL ERROR INDICATING PRINTER ERROR 
CONDITION. 

15 “OUTPUT TIMEOUT ERROR” 


GLOBAL ERROR INi TCATING TRANSMISSION 
OF LAST CHARACTE. DID NOT OCCUR 
WITHIN A GIVEN TIi.c. 


4.0 PERFORMANCE AND PROGRESS REPORTS 
PERFORMANCE AND PROGRESS REPORTS ARE NOT SUPPLIED. 


5.0 DEVICE INFORMATION TABLES 
DEVICE INFORMATION APPEARS IN THE GLOBAL DATA SECTION. 


6.0 TEST SUMMARIES 


NOTE: FOR MORE DETAILED DESCRIPTION OF THE FOLLOWING TESTS, 
REFER TO THE INDIVIDUAL TEST MODULES LOCATED IN THE ATTACHED LISTING. 
EACH MODULE CONTAINS A TEST DEFINITION AND PSEUDO CODE FOR THE SPECIFIC TEST. 


TEST 1 
INTERFACE LOGIC 
VERIFIES OPERATION OF INTERFACE LOGIC BETWEEN THE PRINTER AND THE CPU. 


TES; 

DATA TRANSFER PATHS 

CHECKS THE DATA TRANSFER PATHS FROM THE PRINTER OUTPUT TO 
THE PROCESSOR INTERFACE. 


TEST. § 
2INTABLE CHARACTERS 
CHECKS FOR PROPER PRINTING. OF ALL PRINTABLE CHARACTERS. 


TEST 4 
NON-PRINTABLE CHARACTERS 
CHECKS FOR PROPER DETECTION OF ALL NON-PRINTABLE CHARACTERS. 


TEST S 

PRINT CONTROL 

CHECKS THAT CHARACTERS IN EXCESS OF 132 CHARACTERS ON A LINE 
ARE DISREGARDED. 


TEST 6 
MULTIPLE LINE ADVANCE 


SEQ 0011 
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CHECKS THE MULTIPLE LINE ADVANCE FOR PROPER PAPER MOVEMENT. 


TEST 7 

OVERSTRIKE 

THIS TEST WILL VERIFY CORRECT OPERATION OF THE PRINTER WHILE 
OPERATIN JUST WITHIN OVERSTRIKE, LINE BUFFER AND PAGE BUFFER LIMITS. 


TEST 8 

INTERLOCK TEST 

THIS TEST CHECKS TO SEE THAT PRINTER INTERLOCKS ARE FUNCTIONING. 

rf ell ERROR BIT IN THE M7258 MODULE AFTER TRIPPING INTERLOCK 


TEST 9 

ABSOLUTE AND RELATIVE POSITION 

THIS TEST CHECKS THE ABSOLUTE ~~ RELATIVE POSITIONING COMMANDS JY 
USING THEM TO DRAW A RECTANGLE 


TEST 10 

NEWLINE MODE 

THIS TEST CHECKS THE MACHINES ABILITY TO ENABLE AND DISABLE NEWLINE MODE. 
TEST 11 

POWER UP DEFAULTS 

THIS TEST VERIFIES THE SPECIFIED POWER UP DEFAULT CONDITIONS OF THE PRINTER. 
TEST 12 

TABS TEST 

THIS TEST DOES A COMPREHENSIVE CHECK OF HORIZONTAL AND VERTICAL TAB 
FUNCTIONS OF THE PRINTER. IT USES THEM TO DRAW A RECTANGLE. 

TEST 13 

MARGINS TEST 


THIS TEST DOES A COMPREHENSIVE CHECK OF BOTH TOP AND BOTTOM AND 
LEFT AND RIGHT MARGIN FUNCTIONS AS WELL AS PHYSICAL LINES PER PAGE FUNCTIONS. 


TEST 14 , 

AUTO-UNDERLINE TEST : 

THIS TEST EXERCISES THE PRINTER'S AUTO- UNDERLINE FUNCTIONS. MESSAGES ARE 
a we een tee AND WITHOUT. TABS AND AND SPACES ARE CHECKED FOR BEING 


TEST 15 

PARTIAL LINE UP/DOWN TEST _ 

THIS TEST EXERCISES THE PRINTER'S S ABILITY an EXECUTE THE PARTIAL LINE UP 
AND DOWN ESCAPE SEQUENCE AND FUNCTION. 


TEST 16 

DRAW VECTORS TEST 

THIS TEST EXERCISES THE DRAW VECTOR FUNCTION BY DRAWING A RECTANGULAR GRID 
AND INTERMIXING TEXT WITH THE ORAW VECTOR FUNCTION. 


TEST 17 

JUSTIFY TEST 

THIS TEST EXERCISES THE JUSTIFY FUNCTION AS WELL AS DEMONSTRATING THE 
USEFULNESS AND LIMITS. 


Ni 
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TEST 18 
PORTRAIT TEST 
THIS TEST DOES A QUICK VERIFY OF THE PRINTER MAJOR FUNCTIONS 


IN PORTRAIT MODE USING THE RESIDENT PORTRAIT FONT. 


TEST 19 

FONT TEST 

THE FONT TEST TESTS FUNCTIONS ASSOCIATED WITH MULTIPLE FONT USE 
ON THE LNO1 SUCH AS: 

FONT LOADING.FONT ASSIGNMENT AND FONT SELECTION. 


TEST 20 

MISCELLANEOUS CONTROL FUNCTIONS TEST 

THIS TEST CHECKS THE RESULTS OF SENDING SPECIFIC CONTROL CHARACTERS 
WITHIN AN ESCAPE OR CONTROL SEQUENCE. THINGS SUCH AS: 

CANCEL ,SUBSTITUTE,LINE FEED,.FORM FEED ETC. 


é 
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. TITLE ae LNO1 OIAGNOSTIC 
~ENABL A 
. SBTTL IDENT IFICATION 


; PRODUCT CODE: AC - T3430 -MC 

; PRODUCT NAME; CZLNADO LNO1 DIAG 

; MAINTAINER; SMALL SYSTEMS DIAGNOSTICS 
3; AUTHORS: GLENN A, PERNA 

; DATE FEBRUARY 1984 


sCOPYRIGHT (C) 1984 B 
sDIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSSETTS 01754 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 

MAY NOT BE PROVIDED OR OTHERWISE MADE 


ON 
AND TO (NE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND 
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS SOFTWARE IS ey TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILI'r OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 


SEQ 0014 


ESLNARPAYYO! HBOHBATAS BUNGE %°4-07-563 oR: APFERE TORO? PAGE 5 5€Q 001s 


FUNCTIONAL DESCRIPTION 


THIS DIAGNOSTIC PROGRAM VERIFIES PROPER OPERATION OF THE LNO1 
LINE PRINTER, AND IT'S ASSOCIATED INTERFACE MODULE. 


THE PROGRAM CONSISTS OF 20 TESTS. 
THE PROGRAM IS COMPATIBLE TO THE POP-11 DIAGNOSTIC SUPERVISOR AND xxDP-. 


VERSION A-O JAN 1985 GLENN A. PERNA 


i 
Nw 
sO 


HISTORY REV. A-O INITIAL RELEASE 1983 
BASIC LINE PRINTER FUNCTIONS ONL 


ee 
wily 
oo 


MAR 1983 
ADDED EXTENDED FUNCTIONALITY TESTING 
REV. C-O SEP 1983 


RE-RELEASED TO SUPPORT UPGRADED 
MEMORY (256K). 


FEB 1964 
eo TO SUPPORT DEC 14/15 


~“ 
w 
4 

Ge Ge @s Gf Ge oe Gs oF oe os oe 


De 


ESENABSHLYO! "PStapeoa BUTSE 4-07 563,088 #PReRroR907 PAGE 6 5€@ 0016 
744 TLE CZLNADO LNO1 TEST 
745 .SBTTL PROGRAM HEADER 
746 
a7 .MCALL SVC 
748 0000.00’ svc ;INITIALIZE SUPERVISOR MACROS 
749 \MCALL STRUCT 
750 000000' STRUCT ;STRUCTURED MACRO PACKAGE 
751 000000 $LSTIN« 0 ; LIST ASSY CODE L 
752 000000 SLSTTAG= 0 ; LIST TAGS LEFT 
753 177777 $LOCTAG= “3 
755 000000 SVCINS= 0 ‘LIST INSTRUCTIONS 
756 000000 SVCTST= 0 :LIST TEST TAG 
757 000000 SVCSUB= 0 ;LIST SUBTEST TAGS 
758 000000 SVCGBL= 0 :LIST GLOBAL TAGS 
759 000000 SVCTAG= 0 sLIST OTHER TAGS 
6 
761 .ENABL AMA 
res ENABL i. 
764 002000 - . =2000 
765 
766 002000 BGNMOD 
767 002000 POINTER BGNSW,BGNSFT 
769 002000 MEADER CZLNA,D,0,60,1,340 
(a) Sakeee («108 MOI eine se) ee ee 
(4) 002001 132 “ASCII /2/ 
(4) 002002 114 -ASCII /L/ 
(4) 002003 116 II /N/ 
(4) 002004 101 -ASCII /A/ 
(6) 002005 000 -BYTE 0 
(6) 002006 000 -BYTE 0 
(5) 002007 000 ‘BYTE 0 
(5) 002010 ae LSREV:: ae sREVISION LEVEL 
(5) 002011 LSOEPO: se 10 
(4) 002011 060 .ASCII /0/ 
(5) 002012 ria LSUNIT:: os ;NUMBER OF UNITS 
(5) 0020:.4 ai LSTIML::. a ;LONGEST TEST TIME 
(5) 002016 ae LEMPCP ss are sPOINTER TO H.W. QUES. 
(5) 902020 ie LSSPCP:; eee sPOINTER TO S.W. QUES. 
(5) 002022 a LSHPTP:;. ;PTR. TO DEF. H.W. PTABLE 
.WORD LSHW | 
(5) 002024 pe LSSPTP:: ai gs ;PTR, TO S.W. PTABLE 
“% . WW 
(5) 002026 ae LSLADP: : at :OIAG. END ADORESS 
-WORD  L&L 
hee poets a sees L$STA:: ‘in ‘ sRESERVED FOR APT STATS 
(5) 002032 L8CO;; 


ee 

“etl 

CZLNADO LNOL TEST ONMAC X24.07-563 - APR - 9:07 PAGE 6- 
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(4) 002032 000000 .WORDB O 

(5S) 002034 LSOTYP:: sOIAGNOSTIC TYPE 

(4) 002034 000001 . -WORD 1 

(5) 002036 LSAPT:; sAPT EXPANSION 

(4) 002036 000000 .WORDB O 

CS) 002040 LSDTP:; PTR, TO DISPATCH TABLE 
(4) 002040 002132 .WORD LSDISPATCH 

(5) 002042 LSPRIO:; sDIAGNOSTIC RUN PRIORITY 
(4) 002042 000340 -WORD 340 

(5S) 002044 LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 
(4) 002044 000000 .WORD O 

15) 002046 LSEXP1:: sEXPANSION WORD 

(4) 002046 000000 . WORD 

(5) 002050 LSMREV: : 3SVC REV AND EDIT 4 

(4) 002050 003 .BYTE CSREVISION 

(3) 002051 003 -<BYTE CSEDIT 

(5) 002052 LSEF:: sDIAG. EVENT FLAGS 

(4) 002052 000000 .WORD O 

(CS) 002054 000000 -WORD O 

(5) 002056 L$SPC:: 

(4) 002056 9000000 . WORD 

(5S) 002060 LSDEVP: : ; POINTER TO OEVICE TYPE LIST 
(4) 002060 002242 .WORD LSDVTYP 

(5S) 002062 LSREPP; : ;PTR. TO REPORT CODE 
(4) 002062 000000 .WORDB 0 

(5S) 002064 LSEXP4:; 

(4) 002064 000000 .WORD O 

(5) 002066 LSEXPS: : 

(4) 002066 000000 -WORD O 

€S) 002070 LSAUT:: sPTR. TO ADD UNIT CODE 
(4) 002070 000000 .WORD O 

(5S) 002072 L$DUT:: sPTR, TO DROP UNIT CODE 
(4) 002072 000000 -WORD O 

CS) 002074 LSLUN:: sLUN FOR EXERCISERS TO FILL 
(4) 002074 000000 -WORD O 

(5) 002076 LSDESP: : | sPOINTER TO DIAG. DESCRIPTION 
(4) 002076 002202 -WORD LSDESC 

(5) 002100 L$LOAD: ; : sGENERATE SPECIAL AUTOLOAD EMT 
C4) 002100 104035 EMT ESLOAD 

CS) 002102 LSETP:: sPOINTER TO ERRTBL 

€4) 002102 000000. -WORD O. 

(S) 002104 LSICP:: sPTR. TO INIT CODE 

(4) 002104 005516 LSINIT 

(3) 002106 LSCCP:: | ~3PTR., TO CLEAN-UP CODE 
(4) 002106 007266 -WORD LSCLEAN 

(5S) 002110 LSACP:: ;PTR. TO AUTO CODE 

(4) 002110 002256 -WORD LSAUTO 

(5S) 002112 LSPRT:: 3PTR. TO PROTECT TABLE 
(4) 002112 002122 -WORD LSPROT 

(5) 002114 LSTEST:: sTEST NUMBER 

(4) 002114 000000 .WORD O 

(5S) 002116 LSDLY:: sDELAY COUNT 

(4) 002116 000000 .WORD O 

(5S) 002120 LSHIME: ; sPTR. TO HIGH MEM 

i496 002120 000000 -WORD 0 
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002122 
002122 
002122 
002124 
002126 
002130 


000000 
177777 
177777 


070254 
101616 


055103 


047114 
002250 
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051517 


030460 
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“ 
; THE FOLLOWING IS A LOAD PROTECTION TABLE 
a 


BGNPROT 
LSPROT:: 

. WORD 0 

. WORD -1 

. WORD -1 


ENOPROT 
.SBTTL DISPATCH TABLE 


gee 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
le 


DISPATCH 20 3X* NUMBER OF TESTS 
.WORD 20 
LS$DISPATCH: : 
-WORDB Tl 
.WORD fe 
.WORD T3 


SS5535305553558585 


SFOR USE ON REVISION C OF THE SUPERVISOR 
pe DESCRIP <CZLNADO LINE PRINTER DIAGNOSTIC> 
~"" ASCIZ /CZLNADO LINE PRINTER DIAGNOSTIC/ 


-EVEN 
DEVTYP 
LSDVTYP:: 
-ASCIZ /LNO1/ 
EVEN 


<LNO1L> 


SEQ 0018 


Ge 
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NAD .P 


002250 
002250 
002252 
002252 
002252 
002254 


002256 
002256 


002256 
002256 


002256 
002260 


002260 
002260 


002262 


002262. 


002264 
002264 


002264 


002266 


002270 
002270 
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.SBTTL DEFAULT HARDWARE P-TABLE 


; ee 
; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE RUN-TIME P-TABLE. 


BGNHW OFPTBL 
000002 -WORD 110001-L$HW/2 


177514 -WORD 177514 sLP11 REGISTER ADDRESS 
000200 .WORD 200 3LP11 INTERRUPT VECTOR 


3 

; INTERRUPT VECTOR PRIORITY IS 4 AND CANNOT BE CHANGED 
E 

L10001: 


BGNAUTO 
LSAUTO:: 


000240 NOP 3; NOT USED 


ENDAUTO 
L1000e: 
104461 TRAP a 
.SBTTL SOFTWARE - TABLE 


id 
; THE SOFTWARE P- TABLE. CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL . 
000002 . WORD L10003-L$SW/e2 
LS$SW:: , 
SFPTBL:: 


000000 INHINT: .WORD O 30 IF NO INTERVENTION TESTS 
31 IF MANUAL INTERVENTION TESTS 
;sDEFAULT IS NO 


000005 MAXERR: .WORD 5 ; AUTODROP ERROR COUNT 
; IF ERROR COUNT EXCEEDS MAXERR THE UNIT WILL BE DROPPED FROM TEST 


ENDSW 
L10003: 


.SBTTL I/0 MACRO DEFINITIONS 


SEG 0019 


CZLNADO LNOL TEST 
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He 


8258 $F 07-905, A OMACRO Ber tnt? fons ~~ °~4 


~MACRO OUTPUT po A OE aaa 
V 


OD. BUF ADD ;SAVE THE BUFFER ADDRESS 

_IF 8B  ®FCNT 
sili MOV @1,BUFCNT ; BYTE COUNT DEFAULT OF 1 
_IF NB ®FCNT 
ner MOV BFCNT ,.BUFCNT ; SUPPLY BYTE COUNT 
, MOV @-1,PRINTR ; OUTPUT TO ALL UNITS 
.IF 8B ERR 

MOV OLPERR ,ERRSVC 
.ENDC 
_IF NB ERR 

MOV ERR, ERRSVC 
.ENOC 
‘IF B PRINTS 
ari MOV #1, BUFREP ; PRINT ONCE DEFAULT 
“IF NB PRINTS 
are MOV PRINTS ,.BUFREP ; SUPPLY PRINT COUNT 
; JSR PC, IOCTRL ;CALL THE ORIVER 
.ENOM OUTPUT 
.MACRO OUTPUI ADD,BFCNT,ERR,UNIT,PRINTS 

MOV ADD , BUF ADD [SAVE BUFFER ADDRESS 
.IF 8 ®FCNT 
sca MOV @1,BUFCNT ; DEFAULT BYTE COUNT OF 1 
_IF NB ®BFCNT 
a MOV BFCNT,BUFCNT ;BUFFER BYTE COUNT BFCNT 
-IF BERR 

MOV OLPERR,ERRSVC 
.ENOC 3 
_IF NB ERR 


. ENOC | 
.IF 6 PRINTS 
MOV 


LIF NB PRINTS 
MOV 


— 


. ENOC 


. ENOM 


MOV —_ ERR, ERRSVC 
01. BUFREP ; PRINT ONCE DEFAULT 
“PRINTS,BUFREP ; SUPPLY PRINT COUNT 


MOV UNIT ,PRINTR : ; SUPPLY UNIT NUMBER 
JSR PC, IOCTRL ;CALL THE ORIVER 


PRINTS IS A PARAMETER CONTROLLING [THE NUMBER IF TIMES THE DATA OR 
MESSAGE IS TO BE PRINTED (SENT TO THE PRINTER). DEFAULT IS 1. 


A TIMEOUT OF 20. SECONDS IS FURNISHED BASED ON THE FOLLOWING ASSUMPTIONS : 


1 A PRINTER SPEED OF 300 LPM 


SEQ 0020 
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€ Kes 07-585, , 


Te 
0 - APR - 84 


SACRO DEFINITIONS o> 


: 2 A REPEAT COUNT OF 66 MAX. ( 1 PAGE OF LINES AT SB LPI. ) 
i 3 AN INITIAL BAND STARTUP TIME OF 2.5 SECONDS. 
PEP PPCREOSECERES ROE SECE ESE SECESOOOCCOSSOOSSSSSSOSESCESCOSSSOCCCCCOCSOCCSCOOCOCS OSS E 


.SBTTL GLOBAL . REAS 
BGNMOD 


SEQ 0021 


¢ 

; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES 
; THAT ARE USED IN MORE THAN ONE TEST. 

72s 


EQUALS 
; 
; BIT OIFINITIONS 


' EVENT FLAG DEFINITIONS 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF. START== 32. ; START COMMAND WAS ISSUED 
EF .RESTART== 31. 
EF .CONTINUE== 30. 3 
EF .NEW== 29. 3 
EF .PWR== 
8 


5 
; PRIORITY LEVEL DEFINITIONS 


INVE COMMAND Is 
A NEW PASS HAS BEEN STARTED 
A POWER -FAIL /POWER-UP OCCURRED 


CZLNADO LNOL TEST 
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GLOBAL AREAS 


i 
PRIO7== 
PRIO6== 
PRIOS== 
PRIO4== 


PRIO3== 
PRIO2== 
PRIO1== 


340 
300 
240 
200 
140 
100 
40 


PRIOO== 0 


: 
;OPERATOR FLAG BITS 


LF2=l2 
FF==j4 
CR==15 


DEL =*177 
VERS.1is= 1 


ERROR CODES FOR USE BY GENERAL ERROR ROUTINE 


3 
;GLOBAL 


5 
STATER= 
TIMOUT = 


NOINTR= 


A 
2 


3 


: TRANSMITTER STATUS ERROR IN OUTPUT 
; TIMEOUT ERROR IN IO DRIVER MODULE 

3THIS ERROR INDICATES THE LAST CHARACTER 
3WAS NOT TRANSMITTED WITHIN A GIVEN TIME 
sGROSS TIME OUT ERROR. THE SPECIFIED DID NOT 
s INTERRRUPT. THEREFORE IO DRIVER MODULE WAS 
sNOT CALLED 


GENERAL REGISTER USAGE DEFINITIONS 


RESERVED FOR USE BY THE MACRO PACKAGES 
NUME UNITS TO TEST LSUNIT-1 
UNIT NUMBER BY 2. USED TO CALCULATE CTFSET INTO PROPER 


MAXIMUM NUMBER OF 
PRINTER TABLE 
TEMPORARY STORAGE 


STACK POINTER 
PROGRAM COUNTER 


SEQ 0022 
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4 07 P s 
GENERAL REGISTER USAGE DEFINITIONS 


i 

; LP STATUS TABLE BIT DEFINITIONS 
; 

ERROR = BIT15 
aC 3 
LOBYTE = 377 + BIT MASK FOR CLEARING 


.SBTTL GLOBAL DATA SECTION 


© © Pha | 
3308%5¢ 
ee —f eo 
= ° 

oooooc“eoo 


Uv 
_4 
a 
S 
oo 


2° 
om 
x 
m 
so 


i 
: 


nt nik 


oo Ssoooceo 


E 


: 


BUFCNT: 


BUFREP: .WORD 0 


LOBYTE CCOUNTER ) 


3<CR> FLAG FOR USE BY SUPERVISOR 
;LINE COUNTER 


sUNIT COUNTER FOR SINGLE UNIT TESTING 
sUNIT COUNTER FOR E 
sAND TESTS NOT USING THE OUTPUT 


3P-TABLE ADDRESS RETURNED BY GPHARD 
sSELECTED LINE NO. 

sMACRO 

sCLOCK TYPE CONTROL WORD 


ITs 
sERROR CODE TYPE FOR GENERAL 
ROUTINE 


;ERROR 

;EXPECTED ERROR INDICATOR 

; @ UNITS ACTUALLY UNDER TEST 
sEXITS BACK TO IO DRIVER EQUAL 
31 IF ERROR WAS EXPECTED. 


;BUFFER ADDRESS OF DATA TO BE SENT 
;TO THE PRINTER 
sNUMBER OF BYTES TO TRANSFER 


; NUMBER OF TIMES TO PRINT 


SEQ 0023 


CZLNADO LNOL TEST 
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002352 


002412 


002446 


002506 


002546 


002606 


002646 


002706 


002746 


003006 


003046 
003050 


003110 
003112 


003114 


DNMA 
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000020 


000226 


. X24 .07-563 


be 


c.bBal Bata section PACE &-S 


3 
;LNO1 PARAMETER WORD TABLES 


: 
LPCSR: .REPT 
. WORD 
.ENDR 
LPVEC: .REPT 
.ENOR 
LPBUF: .REPT 
WORD 
STATUS: . 
CURADD: 
MSGCNT: 
REPCNT: . 
MSGADR : 
CURCNT: 
LPINTR: 
WORD 
ENOR 


3 sDELCNT: 
$33 a 


16. 
0 


16 
0 


OUTPUT BUFFER 


ADDRESS OF CSR FOR EACH LP11 

INTERRUPT VECTOR ADDRESS 

DATA BUFFER REGISTER ADDRESS 

UNIT STATUS 

CURRENT ADDRESS OF OUTPUT DATA BYTE 

INITIAL BYTE COUNT OF MSG FOR REPEAT RESTORE 
NO. OF TIMES TO REPEAT MESSAGE 

ADDRESS OF DATA TO PRINT START OF DATA 
CURRENT COUNT REMAINING TO OUTPUT 

INTERRUPT ROUTINE ADDRESS 


TIMEOUT DELAY COUNTER 


ERROR ROUTINE DISPATCH ADDRESS 
ERROR COUNT FOR EACH UNIT 


WORK AREA 


3 
3150 BYTES IS RESERVED FOR THE OUTPUT BUFFER AREA 


.EVEN 
OUTBUF: .REPT 


-BYTE 


150. 
0 


SEQ 0024 
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BUFFER SEQ 0025 


.SBTTL GLOBAL TEXT SECTION 
yerdaiaal BEX 


3+ 
; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 


-ASCIZ /PRINTER ERROR/ 

-ASCIZ /PRINTER NOT READY/ 

ASCIZ /PAPER OUT INTERLOCK ab By FAILURE - MAKE SURE PAPER IS RESTORED/ 
.ASCIZ /PAPER TRAY HANDLE INTERLOCK SWITCH FAILURE/ 

aoe /FRONT DOOR INTERLOCK wane LURE / 


/0U IMEOUT / 

/UNIT FAILED TO INTERRUPT/ 

/ALL UNITS HAVE BEEN DROPPED. .RESTART../ 

-BYTE 33,145 ; RESETS DEFAULT CONDITIONS IN LNO1 
33,133,62,40,111 ; SELECT DECIPOINTS AS PARAMETER 
oz = s -67,40,111 ; SELECT PIXELS AS PARAMETER 
15.12,12,12 


33, 133, 61,41,175 ; SEQUENCE FOR TOGGLING PAPER OF 


.LIST BEX 


. 
; FORMAT STATEMENTS USED IN PRINT CALLS 
3 


LPDROP: .ASCIZ /#ALP11 UNIT SD2sA DROPPED FROM TESTSN/ 


.SBTTL GLOBAL SUBROUTINES SECTION 


3%? 

; THE GLOBAL SUBROUTINE SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED BY MORE THAN ONE TEST. 

aed 


3+ 


CZLNADO LNO1 TEST 
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(2) 
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OvwvuyuyVUUUUUUY 


1131 


aa bet 
PARR RARAARA 
wy! SSeS ye 
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1138 
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DNMAC X24.07-5635 10-APR-84 09:07 PAGE 6-10 


10-APR-84 08:55 


002332 
002332 


004154 


003050 


002074 
002074 


003050 


000003 


GLOBAL SUBROUTINES SECTION 


FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO PRINT THE GENERAL ERROR INFORMATION. 
“ERROR AT CSR XXXXXX UNIT YY" 


WHERE XXXXXX= DEVICE CSR ADDRESS 
YY= UNIT NUMBER THAT FAILED 


CALLING SEQUENCE 
JSR PC,LPERR 
REQUIRED PARAMETERS 


UNDER ERROR CODES. 


Re IS USED tery TO THE ROUTINE. 
THE ROUTINE DOES A SAVE ON Re 
AND RESTORES IT PRIOR TO EXITING. 


LPERR SELECT ERRCOD OF 3 VERIFY 
MOV ERRCOD, -( SP) 
BLT 50005$ 
CMP ERRCOD , #3 
BGT 50005$ 
ASL (SP) 
ADD #50000$ , (SP) 
MOV aC SP)+,PC 
50000$: 
-WORD 5S0004$ 
-WORD 50003$ 
WORD  50002$ 
. WORD 50001 $ 
CASE 1 sSTATUS ERROR 
50003$: | eee . 
LET ERRTBLCR2) := ERRTBLCR2) + #1 
INC ERR Re) 
LET L$LUN :2 R2 SHIFT -1 
MOV R2,L$LUN 3 
ASR LSLUN 
ERRHRD 14,TXERR 
TRAP CSERHRD 
. WORD 14 
. WORD TXERR 
CASE 2 sOUTPUT TIMEOUT ERROR 
BR 50006 $ 
50002$: 


LET wae Sy := ERRTBLCR2) + O1 
INC RRTBL(Re ) 
LET LLUN := R2 SHIFT -1 


PRINTS THE ERROR MESSAGE IN THE FOLLOWING FORMAT: 


ERRCOD MUST BE SE” TO ONE OF THE ERROR CODES DESCRIBED 


;SELECT PROPER MESSAGE FORMAT 


SEQ 0026 


33 
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(5S) 004216 010237 002074 MOV R2,L$LUN 

(8) O04222 006237 002074 ASR L$LUN 

1139 004226 ERRHRD 15,O0UTTIM 5 

(4) 004226 104456 TRAP CSERHRD 

(5) 904230 000017 . WORD 15 

(5) 004232 003702 -WORD OUTTIM 

(5S) 004234 WORD O 

1140 

1141 004236 CASE 5 

(4) 0042 000415 R 50006 $ 

(5S) 004240 50001$%:; 

1142 : NEVER RECIEVED THE INTERRUPT 

1143 004240 LET ERRTBLC(R2) :=* ERRTBL(R2) + O1 

(7) 004240 005262 003050 INC ERRTBLCR2) 

1144 004244 LET LSLUN :* R2 SHIFT -1 

(5) 0046244 010237 002074 MOV R2,.LS8LUN 

(8) 004250 006237 002074 ASR L$LUN 

1145 004254 ERRHRD 16, TXNOIN 

(4) 004254 104456 TRAP CSERHRD 

(5S) 004256 20 . WORD 16 

(5S) 004260 003727 . WORD TXNOIN 

(5) 004262 -WORD O 

1146 
1147 
1148 
1149 004264 ENOSELECT 

(3) 004264 000402 BR 50006 § 

(3) 004266 50005$:; 

C2) 004266 062706 000002 @2,SP 

(3) 004272 50004: 

san 004272 500068: 

1151 004272 IF agua =~. GT MAXERR THEN 

(6) 004272 026237 003050 002266 CMP RRTBLCR2),MAXERR 

(10) 004300 003402 BLE 500078 
115e 004302 004737 005354 JSR PC .DOROPTT : MAXIMUM ERROR COUNT EXCEEDED ! 
1153 306 ENDIF 

(4) 004306 500078: 

1154 004306 LET STATUS(R2) :* STATUS(R2) CLR.BY @ERROR 

(7) 004306 042762 100000 002506 BIC ag ai 

1155 004314 re ERRCOD := 

(4) 004314 005037 002332 CLR ERRC 

1156 004320 LET @LPCSR(R2) :* 100 ; CLEAR THE ERROR BIT AND ENABLE INTERRUPTS 
(4) 004320 012772 000100 002352 MOV #100, ALPCSR(R2) 

ote 004326 000207 RTS PC sANO EXIT 

1159 pee eceenesesasecceeneessasaeeesecesessssasescuascuseesseasssasss 
1160 s BIN2DA BINARY TO DECIMAL og & CONVERSION ROUTINE 

1161 3 ENTER WITH NUMBER TO BE CONVERTED ON THE STACK 
1162 $ FOLLOWED BY THE ADDRESS OF A 5 BYTE ge ER 

1165 3 FOR THE ASCII STRING. 5S DIGITS WILL BE ceavenren 
1164 3 LEADING ZEROES WILL BE CONVERTED TO SPACES 

1165 $ CALL BY ySR PC,.BIN2DA 

1166 gP USS a sca sees s SARS SSSSTCHTHSKEKSERSETSSSHT ESR eSeeeeeasesseREss 
1167 

1168 004330 BIN2DA: PUSH R4,R5 
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010446 
010546 


016604 
012705 
005037 
005037 
012737 
000402 
005337 
902435 
002405 
161566 
005237 
000770 


052737 
113724 
005237 
000402 


112724 


062705 
005037 
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00C040 


000002 
004536 


004540 


004536 


CS 
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500118: 
500108: 


500138: 


500148: 


500153: 


500168: 


500178; 


GLOBAL SUBROUTINES SECTION 


MOV R4, -( SP) 

MOV RS, -(SP) 

LET R4 := 6(SP) 3 GET ADDRESS FOR ASCII STRING 
MOV 6(SP),R4 

LET RS :s @TABLDA 3 GET ADDRESS OF DECIMAL TABLE 
MOV @TABLDA,RS 

LET FLAGDA := 00 3 LEADING ZERO FLAG 

CLR FLAGDA 

LET COUNTD :* 60 

CLR 


COUNTD 
; 8.(SP) HAS NUMBER TO BE CONVERTED 
DECR DIGITS FROM 64 TO #0 BY #1 ; DO 5S DIGITS 
MOV 04,0IGITS 

50010$% 
DEC DIGITS 
TST DIGITS 

50012$ 

WHILE 8.(SP) GE (RS) 00 
CMP 6.(SP),CRS) 

50014% 
LET 8.CSP) :* 8.(SP) - (RS) 


SUB CRS),8.(SP) 
LET COUNTD := COUNTD + 41 
COUNTO 


; CREATE A DIGIT 


ENDDO 
BR 500138 


; CONVERT DIGIT TO ASCII OR SUPPLY A SPACE 
‘ IF py oo @0 OR FLAGDA GT 00 THEN 


LET COUNTD := COUNTD SET.BY 060 
8IS #60,COUNTD 
LET (R4)+ :8= COUNTO 
MOVB ae D,(R4)> 
FLAGDA :* FLAGDA + @1 
INC ELAGOA 
ELSE 
BR 500173% 
LET (R4)>+ :B= 040 
ENDIF 


3 DO THE NEXT DIGIT 
LET RS i RS + 02 


62,R5 
LET COUNTO := 00 
CLR COUNTD 
ENDOECR 


SEQ 0028 


DS 
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CZLNAD.PL1 10-APR-84 08:55 GLOBAL SUBROUTINES SECTION 
(5S) 004466 000736 BR 50011% 
(4) 00447 500128; 
1191 ; IF NUMBER — A ZERO PRINT A ‘O' 
1192 004470 IF FLAGDA EQ @0 THEN 
(6) 004470 005737 004534 TST FLAGDA 
(10) 004474 001002 BNE 50020$% 
1193 004476 LET -C(R&4) :B= 960 
(4) 004476 112744 000060 MOVB 60, -(R4) 
1194 004502 ENDIF 
(4) 004502 500208 : 
1195 oe ee UP THE os AND EXIT 
1196 004502 let 8 .CSP) := 4¢CSP 
(4) 004502 016666 000004 000010 MOV rt at 8. es) 
1197 004510 POP RS 
(2) 004510 012605 MOV CSP), RS 
«3) 004512 012604 MOV (SP )+,R4 
1198 004514 LET SP :2 SP + 04 
(7) 004514 062706 000004 ADD @4 SP 
1199 004520 000207 RTS PC 
is 
1202 004522 023420 001750 000144 TABLDA: .WORD 10000. ,1000.,100..,10.,1 
004530 000012 000001 
1203 004534 000000 FLAGDA: .WORD 0 
1204 004536 000000 COUNTD: .WORD 0 
tooe 004540 000000 DIGITS: .WORD 0 
1207 -S8TTL I/O ORIVER 
1208 
1209 3 
1210 ; 
1211 gee 
1212 :THE I/O DRIVER ROUTINE IS INVOKED BY MEANS OF THE INTERRUPT SYSTEM. 
1213 sCALL TO IT IS JUMP IOORV. 
1214 sRETURN RTI. 
1215 “ENTER ROUTINE WITH R2 SET UP TO a UNIT #2. R2 IS USED 
1216 :TO0 CALCULATE OFFSET INTO PROPER 
rie sR1 EQUALS MAXIMUM NUMBER OF UNITS ON SYSTEM UNDER TEST. 
3 
1219 ie 
1220 
at ; CHECK FOR ERROR FLAG IN STATUS REG. 
é 
1223 004542 IODRV: IF @BIT1S NOTSETIN Tg THEN 
(6) 004542 032772 100000 002352 BIT @BIT15,Q@.PCSR(R2 
Bt 004550 001061 50021% 
$ 
aoe ; IF COUNT NOT ZERO SEND NEXT BYTE 
& 
1227 004552 IF CURCNT(R2) GT @0 THEN 
(6) 004552 005762 002746 TST CURCNTCR2) 
C10) 004556 003416 BLE 500228 
1228 560 LET SLPBUFCR2) :B= SCURADD(Re) 
(4) 004560 117272 002546 002446 MOVB SCURADD( Re), ALPBUF (Re) 
1229 004566 LET CURADOD(R2) := CURADD(R2) + @1 
€7) 004566 005262 002546 INC CURADD( Re ) 
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052762 
005362 
Ol277e2 
000457 


005362 


005762 
003424 


016262 
016262 
117272 
005262 
005362 
052762 
012772 
000406 


042762 
012772 


000410 


052762 


012737 
004777 
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020000 
002746 
000100 


002646 
002646 


002706 
002606 
002546 
002546 
002746 


100000 


000001 
176112 


002506 


002352 


002546 
002746 
002446 


002506 
002352 


002506 
002352 


002506 
0023352 


APR - 


1/0 ORTVER 


: 
; ENABLE INTERRUPT FOR NEXT BYTE 
LET i titacdes SET.BY #ACTIVE 


ES 


09:07 PAGE 6-14 


3 CLEAR ge D geaeallateste ENABLE INTERRUPTS 


; SET ERROR F 


wast 
Mov 


BIS ACTIVE ,STATUS(Re 
LET CURCNT(R2) := CURCNT(R2) - @1 
DEC CURCNT 
LET SLPCSR(R2) := 0100 
MOV #100, @LPCSR(R2) 
ELSE 
BR 50023% 
500223: 
; CURRENT MSG DONE, IF PRINT COUNT NOT ZERO SEND AGAIN 
LET REPCNT(R2) :* REPCNT(R2) - #1 
DEC REPCNT(R2) 
IF REPCNT(R2) GT 00 THEN 
TST REPCNT(R2) 
BLE 50024% 
LET CURADD(R2) := MSGADR(R2) ; RESTORE THE MSG ADDR 
MOV MSGADR( Re), CURADD( Re ) 
LET CURCNT(R2) :* MSGCNT(R2) ; RESTORE THE BYTE COUNT 
MOV MSGCNT(R2), CURCNT(CR2) 
LET GLPBUFCR2) :B= SCURADD(R2) ; RESEND THE MESSAGE 
MOVB @CURADD( R2 ) , AL PBUF C(R2) 
LET CURADDCR2) := CURADD(R2) + 01 ; BUMP THE POINTER 
INC CURADD( R2 ) 
LET CURCNT(R2) := CURCNT(R2) - @1 ; DROP BYTE COUNT 
DEC CURCNT(R2) 
LET STATUS(R2) := STATUS(R2) SET.BY ACTIVE 
BIS @ACTIVE,STATUSCR2) 
T @LPCSA(R2) := €100 ; RE-ENABLE INTERRUPTS 
MOV #100, ,@LPCSR(R2) 
ELSE 
500258 
500245: 
; CURRENT MSG DONE, REPEAT COUNT -0 
CLEAR ACTIVE AND DISABLE INTERRUPTS. 
LET STATUS(R2) := STATUS(R2) CLR.BY @eACTIVE 
BIC @ACTIVE,STATUS(R2) 
LET 5 cia := €00 
MOV @00, aLPCSACR2 
50025%: 
ENDIF 
500238: : 
ELSE 
BR 500265 
50021 


Ler ASTATUSCR2) a SET.BY SERROR 
; STATUS ERROR 


@ERROR , STAT 

T ERRCOO :* @STATER 

@STATER .ERRCOD 
JSR PC, 


SERRSVC 
; ERROR SERVICE SHOULD CLEAR ERROR BIT AND ENABLE INTR 
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012602 
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010246 
010346 
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023727 
001005 


013703 
005037 
000405 


012703 
013737 


005703 
003534 


013702 
006302 
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002314 


002012 
002074 


000001 
002314 


0020 /4 


177777 


002074 


rs 
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I/O DRIVER 


ENOIF 
500268: 


POP Re 
wae (SP)+,R2 
.SBTTL I70 CONTROL 


3e¢¢ 


THE [70 CONTROL SUBROUTINE 7S 
THIS ROUTINE IS INVOKED BY A JSR FROM AN I/O CALL. 
INPUTS: PRINTR FOR AL NALS 

BUFADD ADDRESS OF MESSAGE TO PRINT 

BUFCNT BYTE COUNT TO TRANSMIT TO PRINTER 


ERRSVC ADDRESS OF ERROR SERVICE SUBROUTINE 

BUFREP IS NO. OF TIMES TO PRINT THE MESSAGE 
IOCTRL: PUSH eR3,R4 
MOV R2,-C SP) 
MOV R3,-CSP) 


MOV R4,-CSP) 


: 
; PRINTR CONTAINS THE UNIT NUMBER. IF 
; PRINTR = -1, THEN QUEVE TO ALL PRINTERS. 


IF PRINTR EQ @-1 THEN 
CMP PRINTR, as 
BNE 5$0027% 
a RS :* LSUNTT 
LSUNIT, 
"CLR USLUN 


ELSE 3 
50030$ 


LET RS 2 o1 
LET LSLUN :* PRINTR 


MOV PRINTR,LSLUN 
ENDIF cae | 


50027$: 


| 
; DO FOR SELECTED PRINTER(S) 


3 | 
WHILE R3 GT #0 DO 
500315: 
TST RS 
BLE 50032% 


5 
; USE R2 AS AN INDEX INTO THE UNIT TABLES 
4 

LET Re :* oe SHIFT 1 


MOV L$LUN, 
ASL Re 


SINGLE ENTRY QUEVE MANAGER. 


SEQ 0031 


CZLNADO pi NOt TEST 
CZL Pil 


NAD. 


005014 


005020 
005020 
005026 
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005037 


032762 
001117 


032772 
001407 


012737 
052762 
000451 


032762 
001437 


012704 
032762 
001430 
012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005304 
001011 
012737 


042762 
052762 


000744 


000406 


G4 
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002332 


040000 


100000 


000001 
100000 


020000 


047040 


020000 


c00002 
002116 
177772 
177756 


000002 
020000 
100000 


002506 


002352 


002332 
002506 


002506 


002506 


CLR ERRCOD 
: 

; IF THE UNIT HAS BEEN DROPPED SELECT THE NEXT UNIT 
IF @DROPED NOTSETIN STATUS(R2) THEN 


BIT 


BNE 


50033 


: 
;TEST FOR DVC ERROR BIT SET 


IF @BIT15 SETIN ALPCSk(R2) THEN 
0BIT15,@LPCSR(R2 ) 
50034 $ 


50037$: 


BIT 
BEQ 


MOV 
BIS 


T ERRCOD := #STATER 


LE 
@STATER,ERRCOD 

LET STATUS(R2) :* STATUS(R2) SET.BY @ERROR 
@ERROR , STATUS(R2 ) 


ELSE 
50035$ 


—ee 


PREVIOUS MESSAGE IS DONE 


SEQ 0032 


; STATUS REG ERROR BIT 15 SET IN 


IF @ACTIVE SETIN STATUS(R2) THEN 


OACTIVE ,STATUS(R2) 
50036 $ 
LET R4 := #20000. 
#20000... 
@ACTIVE .STATUS(R2) 
500408 
DELAY 2. 
@2..0PC)> 
LSDLY.(PCD+ 
“6CPC) 
“22cPC) 
500418 
@TIMOUT ,ERRCOD 
BIC 
ers 
ENDIF 
50037$ 
ELSE 
50042 


; TIMEOUT COUNTER 


*UHILE @ACTIVE SETIN STATUSCR2) DO 


DEC R4 
IFCOND EQ THEN 


; WAIT 200 MICROSECONDS 


; DEC TIMEOUT COUNTER 


LET ERRCOD := @TIMOUT 


@ACTIVE .STATUS(R2) 
MERROR , STATUSCR2 ) 
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005164 
005164 
005170 


005762 
003403 


012737 


005737 
001403 


004777 
000425 


013762 
013762 
013762 
013762 
013762 


005762 
003403 


012772 


005303 
005237 


000642 
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002746 


000003 


002332 


175634 


002544 
002344 
002346 
002346 
002350 
002746 


000100 


002074 


002332 


002546 
002706 
002746 
002606 
002646 


002352 


HS 
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I/O CONTROL 
IF CURCNT(R2) GT #0 THEN 
TST CURCNT(R2) 
BLE 50043$ 
: 
; OUTPUT WAS QUEVED BUT I/O DRIVER WAS NEVER INVOKED (VIA INTERRUPT) 
: 
LET ERRCOD := #NOINTR 
MOV YNOINTR,ERRCOD 
ENDIF 
50043¢$ 
ENDIF 
500428 
ENDIF 
50035$ 
IF ERRCOD NE #0 THEN 
TST ERRCOD 
BEQ 50044 $ 
CALL @ERRSVC ; REPORT THE ERROR 
JSR PC ,BERRSVC 
ELSE 
BR 50045$ 
50044$: 
3 
; QUEVE THE MESSAGE AND ENABLE INTERRUPTS - 
; THE I/O DRIVER WILL PICK UP FROM HERE. 
3 
LET CURADD(R2) := BUFADD ; BYTE ADDRESS 
MOV BUF ADD , CURADD( R2 
LET MSGADR(R2) := BUFADD ; MESSAGE ADDRESS 
MOV 8 »MSGADR( Re) 
LET CURCNTCR2) := BUFCNT ; OUTPUT COUNT 
MOV BUF CNT , CURCNTCR2) 
LET MSGCNT(R2) := BUFCNT ; BYTE COUNT 
MOV BUF CNT ,MSGCNTCR2) 
LET pe dhe :* BUFREP ; PRINT COUNT 
MOV BUF REP ,REPCNT(R2) 
ee «2 CURCNT(R2) GT @0 THEN 
ae eral TCR2) 
T A@PCSRCR2) := #1090 ; ENABLE INTERRUPTS 
MOV 0100, @LPCSR(R2) 
ENDIF 
500465: 
ENDIF 
50045$: : 
ENDIF - 
50033$: 
3 ; 
; SELECT THE NEXT UNIT AND DECREMENT THE LINECOUNT 
$ 
DEC R35 
INC LS$LUN 


ENDOO 
BR 50031% 
50032: 


SEQ 0033 


CZLNADO LNO1 TEST 
C2 10-APR-84 08:5 


LNAD.P11 


3 
(4) 


_ oon 
AAAAAAAAUAWUAWARAARNAW 
peat, tea Pwd tebe 

wy yey 


2 PWAWOeAO~ 
wey DMOw nw 


~~ 


rm 


1389 


005306 
005350 
005352 


012604 
012603 
0126C2 
000207 


C00240 
000207 


052762 
012762 
005072 
013746 
012746 
012746 
010600 
104417 
062706 
005062 
005337 


005737 
001011 


012746 
012746 


010600 


104417 
062706 


104444 


DNMA 


040000 002506 
177777 002746 


002352 
002074 
004060 
000002 


1. 
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POP R4,R5,R2 
MOV (SP)+,R4 
MOV (SP )+,R3 
MOV (SP)+,R2 
RTS PC 


eee 


3 
SUBROUTINE QUIET 


3 
3 
; THIS SUBROUTINE WILL EFFECTIVLY DELAY UNTIL ALL ag a 
; IS FINISHED. THE DELAY IS ACCOMPLISHED BY QUEUEING A 
; MESSAGE TO ALL LINES, 


QUIET: a 20, #0 s NULL MESSAGE OUTPUT 


RTS PC 


; DROPIT FUNCTIONAL DESCRIPTION : 


THIS SUBROUTINE IS USED TO OROP A BAD PRINTER FROM THE TEST 
; DISABLE ANY INTERRUPTS FROM THE PRINTER, AND NOTIFY THE 
; OPERATOR THAT THE PRINTER WAS DROPPED. 


DROPIT: LET STATUS(R2) :* STATUSC(R2) SET.BY @DROPED 
BIS @DROPED , STATUS(R2) 
LET CURCNTC(R2) :« ras) 


MOV RO 

TRAP CSPNTF 
ADD #6, SP 
es ERR rete) 38 
CLR ERRTAL(RO) 
LET yuT Ne — - @1 
DEC 

IF UuT eo” a THEN 

TST UUT 
BNE 50047 $ 
PRINTF eee 
MOV Mat (SP) 
MOV a. CSP 

P,RO 


MOV S 
TRAP CSPNTF 
ADD #4 .,SP 


DOCLN 
TRAP CSDCLN 
ENDIF 
500475: 


; NOTHING TO TEST 


SEQ 0034 


CZLNADO LNOL TEST 
CZLNAD.P11 


005460 000207 


1391 
13 


(10) 


— 
www wv 


—- 
AaAaARAND 


>= NQVUa® 


005516 
005516 
005516 


005037 
023737 
002007 
013700 
104442 
010003 
005237 
000765 


000207 


012700 
104447 


103466 


012700 
104447 


103462 
004737 
012700 
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002074 


002074 


002074 


002074 


000040 


000037 


002012 


J5 


RTS PC 


; FAKE FUNCTIONAL DESCRIPTION: 


: THIS SUBROUTINE IS REQUIRED TO INSURE PROPER PASS COUNT REPORTS 
; IN A MULTI UNIT MODE OF OPERATION. 


§ PSSSICSSSSSSSSSSESSSSSSSSESSSSSSSSESSESSSSSSSSESASSASSSSSASSSESSASTSASAAATE 


FAKE: LET mine" := 40 

CLR $LUN 

WHILE LSCUN LT LSUNIT DO 
50050$: 

CMP L$LUN,LSUNIT 

BGE 50051% 

LS$LUN, R3 

MOV LS$LUN,RO 

TRAP C$GPHRD 

MOV RO,R3S 

LET LSLUN := LSLUN «¢ @1 

INC L$LUN 

ENODDO 

BR 50050$ 
500518: 

RTS PC 


ENDMOD 
.SBTTL INITIALIZATION SECTION 


gee 
;THE INITIALIZE ROUTINE IS EXECUTED AT THE BEGINNING OF EACH SUB-PASS AND IS 
sPRIMARILY USED FOR REQUESTING P-TABLE PARAMETERS. INFORMATION REQUESTED FROM 
;THE OPERATOR INCLUDE THE NUMBER OF UNITS UNDER TEST, DEVICE ADDRESSES, vECTORS, 
;AND CLOCK TYPE. 

| i 


BGNMOD 
BGNINIT 
LSINIT:: 
;RESET EXTERNAL. ee IF START EVENT FLAG IS SET 
s;0OR POWER FAIL RESTART 
READEF 


oer. START ;TEST START EF INDICATOR 
MOV  @€F .START,RO 
TRAP CSREFG 
sea 1s ;BRANCH IF FROM START UP 
READEF EF .RESTART sNOW THE RESTARTFLAG 
MOV OEF .RESTART ,RO 
TRAP CSREFG 


3IF EITHER START OR POWER FAIL RESTART 


300 A BUS RESET 
; UPDATE PASS COUNT 


PC ,FAKE 
; PRIORITY ZERO 


@PRIOO 
GPRIOO,RO 


SEQ 0035 


KS 
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CZLNAD.P1i1 10-APR-84 08:55 INITIALIZATION SECTION 

(3) 005546 104441 TRAP C$SPRI 

1429 0055 LET OUTBUF :B= 414 

(4) 005550 112737 000014 003114 MOVB 014 , OUTBUF 

1430 005556 OUTPUT #OUTBUF , #1 

1431 005620 DECR WORK1 FROM #6 TO #1 BY #1 
(S) 005620 012737 000006 003112 MOV #6 ,,WORK1 

(7) 005626 000402 BR 50052$ 

(6) 005630 50053$: 

(10) 005630 005337 003112 DEC WORK 1 

(7) 005634 ' 500523: 

€7) 005634 023727 003112 000001 CMP WORK1 , 41 

(9) 005642 002415 BLT 50054 $ 

1432 005644 DELAY 250 

(2) 005644 012727 000250 MOV #250 ,(PC )+ 

C2) 005650 000000 .WORDB O 

C2) 005652 013727 002116 MOV LSOLY,CPC)>+ 

(2) 005656 000000 .WORDB O 

(2) 005660 005367 177772 DEC -6( PC) 

(2) 005664 001375 BNE 4 

(2) 005666 005367 177756 DEC -22(PC) 

(2) 005672 001367 BNE .- 
1433 005674 ENDDEC 

(5) 005674 000755 BR 50053% 

(4) 005676 500545: 
1434 005676 EXIT INIT ; ELSE EXIT INIT CODE 
(3) 005676 104432 TRAP CsExIT 
Be, 005700 001300 WORD 1L10004-. 

$ 
— ;POWER UP RESTART OR START COMMAND ISSUED 
3 

1438 005702 1$: BRESET sRESET THE BUS 
€3) 005702 104433 TRAP CSRESET 
1439 005704 IF LSUNIT GT #16. THEN 

(6) 005704 023727 002012 000020 CMP = §=§=6©LSUNIT, 016. 

€10) 005712 003420 BLE -§0055$ 
1440 005714 PRINTF @NRGT16 

(7) 005714 012746 006542 MOV @NRGT16,-CSP) 

(6) 005720 012746 000001 MOV #1,-(SP) | 

€3) 005724 010600 MOV SP ,RO 

€4) 005726 104417 TRAP CSPNTF 

(4) 005730 062706 000004 ADD 04. SP 
1441 005734 PRINTF @NRGT17 

(7) 005734 012746 006625 MOV @NRGT17, -( SP) 

€6) 005740 012746 000001 MOV #@1,-(€SP). 

€3) 005744 010600 MOV SP,RO 

(4) 005746 104417 TRAP  $CSPNTF 

€4) 005750 062706 000004 ADD @4,SP 
1442 005754 ENDIF 

(4) 005754 50055$: 
1443 005754 ; CHECK FOR UNATTENDED MODE 
C3) 005754 104450 TRAP C$MANI 
1444 005756 BNCOMPLE TE 2$ ; IF UNATTENDED BYPASS MANUAL INSTRUCTIONS 
asat 005756 103024 BCC 2s 
1446 005760 PRINTF @RESET1 

€7) 005760 012746 006735 MOV MRESET1, -( SP) 


x 
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(6) 005764 012746 000001 MOV 01, -(SP) 

(3) 005770 010600 MOV SP -RO 

(4) 005772 104417 TRAP = C$PNTF 

(4) 005774 062706 000004 ADD 64, SP 

1 3 

1448 ;WAIT FOR A "CR" BEFORE GOING ON 

144 , 

1450 006000 LET FLAG := 00 

(4) 006000 005037 002270 CLR FLAG 

1451 006004 LET ERRCOD := #0 

(4) 005037 002332 CLR ERRCOD 

1452 006010 LET WUT := 00 

(4) 006010 005037 002336 CLR UUT 

1453 006014 1003: 

1454 006014 GMANIL READY,FLAG, 100000, YES 

°3) 006014 104443 TRAP CSGMAN 

(3) 006016 000404 BR 10000$ 

(4) 006020 002270 "WORD FLAG 

(5) 006022 000130 "wORD TSCODE 

(5) 006024 007006 "WORD READY 

(5) 006026 100000 "WORD 100000 
(3) 006030 100003: 
1456 ;REQUEST P-TABLE FOR PRINTERS UNDER TEST 
1458 006030 2$: LET R1 :* LSUNIT - #1 ;MAXIMUM NUMBER OF UNITS 
(5) 006030 013701 002012 MOV LSUNIT,R1 

(7) 006034 005301 DEC Ri 
1459 006036 INCR L$LUN FROM @0 TO Ri BY O21 

(5) 006036 005037 002074 CLR L$LUN 

(7) 006042 000402 BR 50056$ 

(6) 006044 500573: 

(10) 006044 005237 002074 INC L$LUN 

(7) 006050 50056$: 

(7) 006050 023701 002074 CMP _—s_L:$SLUN, R1 

(9) 006054 003071 BGT 500603 
1460 006056 GPHARD L$LUN,R3 ;REQUEST P-TABLE ADDRESS 
(3) 006056 013700 002074 MOV LSLUN, 

(3) 006062 104442 TRAP _—«C$GP 1 

(3) 006064 010003 MOV —s«&RO RB 
1461 006066 BNCOMPLETE 3$ ;BRANCH IF DEVICE NOT PRESENT 
(2) 006066 103060 Bcc 33 

1462 006070 LET R2 :* L$LUN SHIFT 1 

(5) 006070 013702 002074 MOV. _—sL$L.UN, R2 

(8) 006074 006302 ASL sé 
1463 006076 LET ERRTBL(R2) := 00 

(4) 006076 005062 003050 CLR ERRTBL(R2) 
1464 006102 LET CURCNTCR2) :* 0-1 

(4) 006102 012762 177777 002746 MOV @-1, CURCNT(R2) 
1465 $33 LET DELCNT(R2) := @0 

1466 006110 LET REPCNT(R2) := 00 

(4) 006110 005062 002646 CLR REPCNT(R2) 

> 
1468 ;LOAD CSR ADDRESS INTO TABLE 
S 
1470 006114 LET LPCSR(R2) := (R3)+ ;SET UP CSR ADDRESS FOR DEVICE 
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012362 


016262 
062762 


012362 


010237 


013762 
012746 


052762 
000702 


012737 
012700 
104462 
010004 
103031 


012737 


rae X24 .0 


002352 


002352 
000002 


002412 


003110 
003110 
003110 
003110 
104624 


003110 


002336 


040000 


000001 
000114 


002446 
002446 


003110 
003006 


002506 


002316 


000002 0023516 


M3 
7S nt Prat B2RT ron See TION” °°? 


CRS). LPCSR(R2) 

LET LPBUF(R2) := LPCSR(R2) + #2 
MOV LPCSR(R2),LPBUFCR2) 

ADD #2, LPBUFCR2) 


;SET UP VECTOR ADDRESS INTO GIVEN TABLE 


LET LPVECC(R2) := CR3)> 
MOV (R3)+, LPVECCR2) 


; 
;SET UP DEVICE INTERRUPT VECTOR INFORMATION 


LET WORK := R2 SHIFT 3 
MOV Re , WORK 


MOV 


LET WORK := WORK + @#INTOO 

ADD @INT 

LET LPINTR(R2) :* WORK 

MOV LPINTR(R2) 

SETVEC LPVECCR2), LPINTR(R2), #PRIO4 
OPRIO4 , -( SP) 


MOV 

MOV LPINTR(R2), -(SP) 
MOV LPVECCR2), -C SP) 
MOV @3, S ) 

TRAP CsSVEC 

ADD #10,SP 


ADD ONE TO UNIT UNDER TEST COUNT 
LET UUT :* UUT « @1 
INC vuT 


BR 4$ 
3 
; INDICATE LSLUN NOT AVAILABLE FOR TESTING 
3 
3$: LET STATUS(R2) := STATUS(R2) SET.BY @DROPED 
BIS @DROPED , STATUS(R2 ) 
4%: E pee : :GO BACK AND DO IT AGAIN 
‘500578 
50060$: NES 
SERSBSRSSESESSEESESCESSSERBSSEESESESEEESESSESESESSESEESESESEESEESESESEES 
; SETUP TO HANDLE ao. INTERRUPTS 
3; IF AN L-CLOCK IS ON THE SYSTEM THEN SETUP A NOOP INTERRUPT 
; HANDLER AUSE LSI SYSTEMS MAY HAVE THE CLOCK ENABLED AT ALL TIMES. 
LET CLKTYP ;:= #1 ; DEFAULT FOR NO CLOCK ON SYSTEM 
MOV @1,CLKTYP 
CLOCK L,R4 ; TEST FOR L-CLOCK 
Vv #'L,RO 
TRAP CsCLCK 
V Ra 


MO RO, 
IFCOND CS THEN ; WE HAVE AN L-CLOCK 
BCC 50061$ 

LET CLKTYP ;:2 #2 


MOV #2, CLKTYP 


SEG 0038 


NS 
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1501 006266 LET CLOCKP := R4 

(4) 006266 010437 002320 MOV R4,CLOCKP 

1502 006272 LET CLKCSR := @CLOCKP 

(4) 006272 017737 174022 002322 MOV @CLOCKP ,CLKCSR 

1503 006300 LET @CLKCSR := #00 ; TRY TO DISABLE INTERRUPTS 
(4) 006300 012777 000000 174014 MOV #00, @CLKC 

1504 SETUP THE NOOP HANDLER 

1505 006306 Ler CLKVEC :* 4(R4) 

(4) 006306 016437 000004 002326 MOV 4(R4),CLKVEC 

1506 006314 SETVEC CLKVEC, IGNORE, #PRIO6 

(7) 006314 012746 000300 MOV @PRIO6, -( SP) 

(6) 006320 012746 007202 MOV @IGNORE , -( SP) 

(5) 006324 013746 002326 MOV CLKVEC, -(SP) 

(4) 006330 012746 000003 MOV #3,-CSP) 

(3) 006334 104437 TRAP CS$SVEC 

(2) 006336 062706 000010 ADD #10,SP 
1507 006342 ENDIF 

(4) 006342 500615: 
1508 ; IF A P-CLOCK IS ON THE SYSTEM UPGRADE CLOCK TYPE TO 3 
1509 006342 CK1: CLOCK P,R4 

(3) 006342 012700 000120 MOV @'P,RO 

(3) 006346 104462 TRAP C$CLCK 

(3) 006350 010004 MOV RO,.R4 
1510 006352 IFCOND CS THEN ; WE HAVE A P-CLOCK 
(7) 006352 103016 BCC 50062$ 
1511 006354 LET CLKTYP := 63 

(4) 006354 012737 000003 002316 MOV @3,CLKTYP 
1512 006362 LET CLOCKP := R4 

(4) 006362 010437 002320 MOV R4,CLOCKP 
1513 006366 LET CLKCSR := @CLOC 

(4) 006366 017737 173726 002322 MOV 
1514 006374 LET CLKVEC := 4(R4) 

(4) 006374 016437 000004 002326 MOV 4(R4),CLKVEC 
1515 ; TRY TO DISABLE THE P-CLOCK 
1516 006402 LET @CLKCSR := @00 

(4) 006402 012777 000000 173712 MOV 000, @CLKCSR 
1517 006410 ENDIF soe 

(4) 006410 . 500623: 
1518 ; IF NO CLOCKS ON THE SYSTEM NOTIFY THE OPERATOR 
1519 006410 IF CLKTYP EQ @1 THEN 

(6) 006410 023727 002316 000001 CMP sis CLK, 1 

(10) 006416 001020 3$ 
1520 006420 PRINTF @NOCLCK 

(7) 006420 012746 007043 MOV @NOCLCK, -CSP) 

(6) 006424 012746 000001 MOV ~—s-« #1, -C SP) 

(3) 006430 010600 MOV ~§P,R 

(4) 006432 104417 TRAP CS$PNTF 

(4) 006434 062706 000004 ADO 

1521 006440 PRINTF @NOTIM 

(7) 006440 012746 007105 MOV @NOTIM, -(SP) 

(6) 006444 012746 000001 MOV #1,-(SP) 

(3) 006450 010600 ~RO 

(4) 006452 104417 TRAP CS$PNTF 

(4) 006454 062706 000004 »SP 

1522 006460 ENDIF 

(4) 006460 50063$ 
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007216 
007216 
007216 


10 -APR -84 


012700 
104441 


112737 


104411 


000002 


010346 
010446 


005004 
013703 


005 703 
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08:5 INITIALIZATION SECTION 
SETPRI @PRIOO 
000000 MOV @PRIOO,RO 
TRAP CSSPRI 
LET OUTBUF :B= 014 
000014 003114 MOvB 414 ,OUTBUF 
OUTPUT @OUTBUF , 71 
EXIT INIT 
TRAP CSExIT 
a L10004.-. 
-NLIST BEX 
040445 0525!16 NRGT16: .ASCIZ /SNSANUMBER OF LINE PRINTERS UNDER TEST EXCEEDS 16.7 
022516 047501 NRGT17: res /@NSAONL Y 7m WILL BE TESTED./ 
022516 051101 MRESET: .ASCIZ /SNSARESET PRINTER(CS), AND PLACE ON LINE.@N/ 
022516 051101 RESET1: -ASCIZ /@NBARESET PRINTERCS) AND PLACE ON LINESN/ 
051120 051505 READY: .ASCIZ /DEPRESS “RETURN” WHEN READY. / 
022516 044101 Ck: .ASCIZ / CLOCK NOT AVAILABLE. / 
022516 040501 wy -ASCIZ /@NSAAUTO PRINTING SPEED MEASUREMENT CANNOT BE PERFORMED. / 
PLOC: WORD O 
-LIST BEX 
ENDINIT 
L 10004; 
TRAP CsINIT 
dag OTE ead ge RETR ETRE EES 8 SEE A NE CRS 6 2 ON Ne lla i tal 
: IGNORE AN INTERRUPT CATCHER FOR THE L -CLOCK 
‘ THAT IGNORES THE INTERRUPT 
3 USED FOR SYSTEMS WHERE CLOCK CANNOT BE TURNED OFF. 
PEPPER ES EPROPS EOP EP EEE ER EEE SESES ESE ESSERE ESE CERES ECS ECS SSS SSS CSS SSS EE ES | 
IGNORE : 3 NOOP 
RTI | 
baa nbn Gece o Rd See be8 pik hed e a a anes wk Rene lo ERS Bae Seek ae ee eo 
3 ) 
3 RESVEC _ FUNCTIONAL DESCRIPTION 
3 
: THIS SUBROUTINE WILL SETUP ALL UNITS VECTOR AREAS 
3 TO THE ‘NORMAL’ INTERRUPT ROUTINES STARTING AT INTOO. 
8 anti aera Ieee ee a ee a a ee 
RESVEC:: PUSH R3,R4 
MOV R4, -(SP) 
LET R4:* 00 
CLR ag 
LET RS :* LSUNIT 
002012 MOV LSUNIT,R3 
WHILE R3 GT #0 DO 
500643; 
1S! RS 


SEQ 0040 


C4 


ESLNABS PLT? "PB! apr-aa BESS *°*-07 OS yt PTAPB ART ro SPE BASE © 25 


(10) 007220 


1566 


nt ae at ant et a 
MW hus -4 


—- Pp 
er § 
~J 
wOwv Ow Ovyvwiyvwuvuvuvev 


~~ 


nAUAAUC 
ww ao ~ 


(3) 


8 


we oO -U 
wwOwww 


(9) 


007222 


003417 
012746 
016446 
016446 
012746 
104437 
062706 
062704 
005303 
000757 
012604 


012603 
000207 


012700 
104441 


104433 
013701 
005301 


005037 
000402 


005237 


023701 
003016 


000200 
003006 
002412 
000003 
000010 


000002 


000340 


002012 


002074 


002074 
002074 


BLE 5% 
SETVEC LPVECC(R4), LPINTR(R4), OPRIOG 
MOV OPRIO4, -( SP) 
MOV LPINTR(R4G), -CSP) 
MOV LPVEC(R4), -(SP) 
TRAP CS$SVEC 
ADD @10,SP 
LET R4 :* RO «+ G2 
ADD »R4 
LET RS :* R35 O1 
DEC R3 
ENDDO 
BR 50064 $ 
500658 : 
POP R4,R5 


MOV (SP)+,R3 
RTS PC 


.SBTTL CLEANUP CODING SECTION 
STARS 


BF SSSSHASSHHASSASSSHHSAASSEHEHASESEEHEESHEESEEEHSSEEEEESEEEEEEESEEESES 


gee 

:THE PURPOSE OF THE CLEANUP SECTION IS TO CLEANUP ALL PRINTERS UNDER TEST 

sAND RETEST ANY UNITS WHICH HAVE BEEN DROPPED FROM TESTING TO INSURE THAT 

THEY HAVE NOT COME BACK ON LINE. IF THE DEVICE HAS se a ON LINE 

: TESTING WILL BE RESTARTED ON THE DEVICE. THIS INSURES T 

sIN THE EVENT A PAPER OUT OCCURRED AND THE OPERATOR HAS PUT ADDITIONAL PAPER 
THE UNIT UNDER TEST, THE INITIALIZATION SEQUENCE DOES NOT 


s INTO 
sHAVE TO BE DONE AGAIN IN ORDER TO GET THE DEVICE ACTIVE. 
32>? 
STARS 
§ SOCOHSSOOEEOHSSOSEESEESEEEOEEEESEEHEEESEEDESHEESESESOESESESESEEES 
LS$CLEAN:: 

SETPRI OPRIO7 | 

MOV j.§ @PRIO7,RO 

TRAP | tee 

BRESET 

TRAP  CSRESET 
CLEAN: LET R121 :* LSUNIT - ©1 sNUMBER OF UNITS-1 

ae st Ril 

INCR LSLiuN FROM @O TO Ri BY O1 

oy LSLUN 

—§00665 

50067$: 

INC L $LUN 
500665: 

CMP LSLUN,R1 

BGT 500708 


s OISABLE ALL ere SELECT ALL LINES 
3; ZERO ALL ERROR COUNTS 
LET R2 :* LSLUN SHIFT 1 


D4 
ESLNABSFLY! "TB!apnon BYIEE 24-07 555, BRAOPRBB rnB E22 r BASE 6-26 


(5) 007324 013702 002074 MOV L$LUN,Re2 

(8) 007330 906302 ASL. R2 

1594 ; CLEAR ALL BITS IN STATUS EXCEPT DEVICE TYPE 

1595 007332 LET STATUSCR2) :* STATUS(CR2) CLR.BY SERROR!DROPES! ACTIVE !LOBr Te 
(7) 007332 042762 160377 002506 BIC ERROR !DROPED! ACTIVE !LOBYTE,STATUS(R2) 

1596 007340 LET CURCNT(R2) :* 0-1 

(4) 007340 012762 177777 002746 MOV @-1,CURCNTC(R2) 

1597 007346 LET ERRTBL(R2) := 

(4) 007346 005062 003050 CLR ERRTBL(R2) 

1598 333 LET DELCNT(R2) :+ 00 

1599 007352 LET REPCNT(R2) := 00 

(4) 007352 005062 002646 CLR REPCNT(R2 ) 

1600 007356 ENDINC 

(5S) 007356 000755 gR 50067$ 

(4) 007360 500708: 
1601 007360 004737 007204 JSR PC ,RESVEC 3; RESET THE VECTORS 
1602 007364 IF CLKTYP EQ @3 THEN 

(6) 007364 023727 002316 000003 CMP CL Sh age 

(10) 007372 001006 NE 50071 
1603 007374 CLRVEC arLRVEC 

(3) 007374 017700 172726 Vv SCLKVEC ,RO 

(3) 007400 104436 TRAP CsCve 
1604 007402 LET @CLKCSR ;:+ 000 

€4) 007402 012777 OO00000 172712 MOV #00, 
1605 007410 ENDIF 

(4) 007410 500718: 
1606 007410 IF CLKTYP EQ @2 THEN 

(6) 007410 023727 002316 000002 CMP CLKTYP,@2 

€10) 007416 001013 500723 
1607 007420 SETVEC CLKVEC , @IGNORE , OPRIOG 

€7) 007420 012746 MOV @PRIOG, - ) 

(6) 007424 012746 007202 MOV @IGNORE , -( SP) 

(5) 007430 013746 002326 MOV CLKVEC, -( SP) 

(4) 007434 012746 000003 MOV @3.-(SP) 

C3) 007440 104437 TRAP CsSvECc 

(2) 007442 062706 000010 ADO #10,SP 
1608 007446 ENDIF 

(4) 007446 500723: . 
1609 007446 SETPRI OPRIOO 

(3) 007446 012700 0©c00000 MOV @PRIOO, RO 

€3) 007452 104441 TRAP CSSPRI 
i610 007454 ENDCLN 

(3) 007454 10005; 3 
oani 007454 104412 TRAP CSCLEAN | 
16l2e 007456 ENDMOD 
1613 -SBTTL INTERFACE LOGIC 
acts ;MODULE INLOG.P11 
rte 007456 — 
1618 ‘THIS TEST VERIFIES biog OPERATION OF THE INTERFACE LOGIC. TESTS ARE 
1619 sPERFORMED FOR PRINTE Bh oo oak PRINTER READY, AND CLEARING PRINTER READY 
1620 ‘BY LOADING A CHARACTE R INTO THE OUTPUT BUFFER. ALSO IT IS VERIFIED 
1621 ;THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT THE SAME PRIORITY LEVEL 
1622 3;AS THE PROCESSOR, BUT WILL INTERRUPT IF THE PROCESSOR IS AT A LOWER 
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013701 
005301 


005037 
000402 


005237 
023701 


013702 
006302 


C32772 
001416 


052762 
005262 
013737 


032772 
001027 


012737 
000402 


005337 


023727 
002415 
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002012 


002310 


002310 
002310 
010244 


002310 


100000 


100000 
003050 
002310 


002352 


000200 


000036 


003112 
003112 


002552 


002506 


002074 


002352 


003112 


000001 
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INTERFACE LOGIC 


;sPRIORITY LEVEL. 


BGNTS 


Tl: 


LET ‘Ra 


:* LSUNIT - @1 
MOV LSUNIT,R1 


THE PRINTER IS AT PRIORITY LEVEL 4. 


1 
sMAX NUMBER OF UNITS ON SYSTEM 
DEC Ri 


; 
sHARD CODED INCREMEMNT LOOP 


;INCR LUNIT FROM #0 TO Al BY 1 ;START LOOP 
5 
CLR LUNIT ;UNIT TO 0 
ea BR T1C 300 COMPARE 
ies INC LUNIT ;UPDATE UNIT NUMBER 
CMP LUNIT,R1 ;00 COMPARISON OF UNIT NUMBER 
BLE 18 ;ONTO NEXT UNIT 
a JMP T18 ;EXIT LOOP 
: LET R2 :* LUNIT SHIFT 1 
MOV LUNIT,R2 


ASL Re 
IF y fie SETIN GLPCSR(R2) THEN 


@#BIT15,@L.PCSR(R2) 
8EQ 50073$% 
LET STATUS(R2) :=2 aueraee SET.BY #ERROR 
BIS SERROR , STATUS(R2 
rad ERRTBLC Re) gs ERRTBL(R2) ¢ #1 


I ERRTBLCR2 
LET LSLUN :*° LUNIT 
MOV LUNIT, L$LUN , 


ERRHRD 1, CSRERR sERROR BIT WAS SET. SAY SO 
TRAP CSERHRD 
-WORD 1 
-WORD CSRERR 
-WORD O- 


LET @LPCSACR2) 28 0 
CLR. PCN 2) 


ENDIF 


500733: 


; TIME en 


500768: 


500753: 


—~BIT 


If NOT READY ALLOW 3 SECONDS TO COME UP 
IF OBIT7 NOTSETIN a ae THEN 
cenit "wept 


350074 
DECR WORK 1 FROM 830. TO 01 BY @1 
MOV 030. ,WORK1 
50075$% 


DEC WORK 1 
MP WORK1 , O1 
BLT 50077$% 


SEQ 0043 
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007616 
007616 
007622 
097624 


012727 
00000 


013727 
000000 
005567 
001375 
005367 
001367 


000755 


032772 
001014 


052762 
013737 


01277e 


032772 
001416 


052762 
005262 
013737 
104456 
000003 
011010 
000000 


005072 
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000250 
002116 
177772 
177756 


000200 


100000 
002510 
003050 


002352 


002352 


002506 
002074 


002446 
002352 


002506 


002074 


0 - APR -84 
INTERFACE LOG 


50077$: 
500743: 


F4 


gor PAGE 6-28 
DELAY 250 

MCV #250,(PC)+ 
-WORD O 
MOV LS$DLY,(PC)> 
. WORD 
DEC -6(PC) 
BNE e* 
DEC -22(PC) 
BNE a -20 

ENDDEC 
BR 50076$ 
ENOIF 


: 
;NOW TEST FOR PRINTER READY 


IF hg NOTSETIN @LPCSR(R2) THEN 


;TEST FOR THE READY BIT 
OB ITO7, AL PCSR(R2) 


BNE 50100$ 
LET STATUSCR2) :+ STATUS(R2) SET.BY SERROR 
ERROR , STATUS(R2 ) 


BIS 

LET LSLUN :* LUNIT 
MOV LUNIT,LSLUN 

LET ERRTBLCR2) :* ERRTBLC(R2) + 1 
INC ERRTBLC(R2) 


T 
TRAP $ 
-WORDB 2 
-WORD RDYERR 
-WORD O 
ENDIF 


501008: 


; INSURE LOADING CHARACTER CAUSES PRINTER READY TO GO AWAY 
LET G&L PBUFCR2) := 012 
#12, QL PBUF (Re 
IF OBITO7 SETIN SLPCSRCRE) THEN 
BIT eet ) 


07, @LPCSR(R2 
BEQ 30101% 
LET STATUSCR2) := STATUS(R2) SET.BY #ERROR 
BIS ATUS(R2 > 
LET ERRTBL(R2) 78 ERRTBLC(R2) + 1 
INC R2) 


ERRHRD 3,ERR11 sREPORT AN ERROR 
FRAP CSE 

«WORD 53 

-WORD ERR11 

-WORD O 

LET Q@LPCSR(R2) := 00 

CLR BLPCSR(R2 ) 


ENOIF 
50101$%: 


SEQ 0044 


G4 
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ones X24 .07-S65 SEQ 0045 


CZLNAD.P11 10-APR-84 08: INTERFACE LOGIC 
1677 i 
1678 ;VERIFY THAT THE PRINTER WILL NOT INTERRUPT IF IT IS AT A PRIORITY LEVEL 
. ;THE SAME AS THE CPU 
1681 007762 SETPRI @#PRIO4 ;CPU TO PRIORITY 4 
007762 012700 000200 5 @PRIO4 ,RO 
007766 104441 CS$SPRI 
682 007770 SETVEC *LPVECCRS), SINTERR, @PRI04 ;LP VECTOR SET UP 
(7) 007770 012746 000200 MOV OPRIO4 , -( SP) 
(6) 007774 012746 010516 MOV @INTERR, - (SP) 
(5) 010000 016246 002412 MOV LPVECC(R2), -CSP) 
64) 010004 012746 000003 MOV #3, -(SP) 
(3) 10010 104437 TRAP CsSVEC 
(2) 010012 062706 000010 ADO #10,SP 
1683 010016 LET @LPCSR(R2) := ALPCSRCR2) SET.BY #100 ; INTERRUPT ENABLE 
(7) 010016 052772 000100 002352 »@LPCSR(R2) 
1684 010024 DECR WORK1 FROM #30. TO #1 BY #1 
(CS) 010024 012737 000036 003112 MOV *° 1 
(7) 010052 000402 BR 
(6) 010034 501038: 
€10) 010034 005337 003112 C WORK 1 
(7) 010040 50102$: 
C7) 010040 023727 003112 CMP WORK1, 1 
C9) 010046 002415 BLT 50104$% 
1685 010050 DELAY 250. : ALLOW FOR DELAY 
(2) 010050 012727 000372 v #250. .(PC)+ 
C2) 010054 000000 ° 
(2) 010056 013727 002116 MOV LSOLY,CPC)> 
C2) 010062 000000 . 
€2) 010064 005367 177772 DEC -6(PC) 
€2) 010070 001375 BNE °4 
€2) 010072 005367 177756 DEC -22(PC) 
C2) 010076 001367 BNE .* 
686 010100 ENDDEC 
CS) 010100 000755 BR 501038 
Bs 010102 50104$:; 
é 
1688 ;NOW TEST THAT THE PRINTER WILL INTERRUPT IF THE CPU PRIORITY IS LOWER THAN 
ert ;THE PRINTER PRIORITY 
3 
1691 010102 LET @LPCSR(R2) ;:= meant Re > CLR.BY #100 sCLEAR INTERRUPT ENABLE 
(7) 010102 042772 000100 002352 BIC _ #100, @LPCSR(R2) 
1692 010110 SETPRI OPRIOS ;CPU TO PRIORITY 3 
€3) 010110 012700 000140 MOV @PRIOS,RO 
(3) 010114 104441 TRAP CtSPRI 
1693 010116 SETVEC egthume ogi 9 OPRIO4 
C7) 010116 012746 000200 MOV OPRIO4, -C SP) 
(6) 010122 012746 010546 MOV - @INTHOL., - (SP) 
(5S) 010126 016246 002412 MOV LPVEC(R2), -( SP) 
(4) 010132 012746 000003 MOV @3,-(SP) 
C3) 010136 104437 TRAP CsSVEC 
(2) 010140 062706 000010 ADD #10,SP 
1694 010144 LET @LPCSR(R2) :* gt tt SET.BY #100 s INTERRUPT ENABLE 
C7) 010144 052772 000100 002352 BIS #100, 8LPCSR 
1695 010152 DELA ; ALLOW FOR DELAY 
C2) 010152 012727 000113 MOV #75. ,(PC)» 


H4 


nh ADO LOS TEST Q:0? PAGE 6-30 SEQ 0046 


ONS X24 .07-565 10,008 -88 
CZLNAD.P11 10-APR-84 08:5 IN 


RFACE LOG 


- Fe 
ALN ENG EN QAAAMN AMAA AA 
BV w hy 
ddd dd 


ViVIUIS OS O~ 
ws ry Duy ww 


010156 
010160 
010164 
010166 
010172 
010174 
010200 
010202 
010202 
010206 
010206 
010214 
010214 
010216 
010220 
010222 
010224 
010224 
010232 
010232 


010240 
010244 


010512 
010514 


010516 
010516 
010516 
010522 


000000 
013727 
000000 


005367 
001375 
005367 
001367 
005262 
013737 
104456 


000004 
011147 
000000 


012772 
042762 


000137 
004737 


012700 
104441 


112737 
004737 
032772 
001001 
000773 


104432 
000510 


005262 


002116 
177772 
177756 


003050 
002310 


000000 
160000 


000200 002352 


003050 


002074 


002352 
002506 


003114 


MOV 
ERRHRD 4,ERR15 
TRAP 


ENDe: 


5010538: 


50106$: | 
EXIT TST 
: TRAP 


-WORD 0 

MOV LS$OLy,(PC)-+ 
.WORDB O 

DEC -6(PC) 

BNE * -4 

DEC -22(PC) 


BNE "a 0 
LET ERRTGL(R2) :* ERRTBL(R2) + #1 
INC ERRTBL(R2) 
LET LS$LUN :* LUNIT 
LUNIT,L$LUN 
CSERHRD 
.WORD 4 
WORD ERR1S 
LET @LPCSR(R2) := 900 ; CLEAR THE LPCSR 
MOV #00, @&LPCSR(R2) 
LET STATUS(R2) :* STATUS(R2) CLR.BY SERROR!DROPED!ACTIVE 
BIC @ERROR !DROPED! ACTIVE, STATUS(R2) 
LET DELCNT(R2) := 00 
HARD CODED INCREMENT LOOP 


sUPDATE UNIT @ 
s RESET STANDARD VECTORS 


MO 
TRAP C 

OUTPUT @INTFAC, 047, 
OUTPUT @DF AULT. 0107. 
OUTPUT @DECFIN, 05 4 


;PRINTS ON A NEW PAGE THE DEFAULT POWER-UP 
TOGGLE THE PAPER OFFSET 
OUTPUT @OUTBUF , ¢1 
C.QUIET | 
WHILE OBI1T7 NOTSETIN @LPCSR(R2) DO 
BIT @BIT7, @LPCSR(R2) 
BNE 50106$ 
ENDDO 


sWAIT FOR READY 


501058 


ese sEXIT THE TEST 
| CSExIT 
. WORD 10006 -. 


& 
; INTERRUPT HANOLER TO SERVICE FAULTY INTERRUPT FROM LP INTERFACE. 


;THIS ROUTINE IS ENTERED ONLY 


WHEN THE LP INTERRUPTS AT THE SAME LEVEL AS 


;THE CPU AND IS CONSIDERED AN ERROR. 


$ 
BGNSRV 
INTERR: 


LET ERRTBL(R2) := ERRTBL(R2) + v1 
INC ERRTBL(R2 ) 
LET LSLUN ;:= LUNIT 


ch NeRO LNO1 TEST 
C2 Pil 10 -APR -84 


NAD. 


fo 
ae an! 
y=) 
i 


010522 
010530 
0190530 
010532 
010534 
0105356 
010540 
010540 
010544 
010544 
010544 


010546 


010546 
010546 
0105Se2 
010552 
010552 


010554 
010634 


010702 
010755 


011010 
011064 
011147 


011224 
011224 
011224 


011226 


011226 


013737 


012716 


000002 


012716 
000002 
047111 


015414 
052111 
040 


047514 
051120 


120 
011224 


104401 


ONMAC X24.07-565 


08:55 
002310 


010224 


010224 


042524 


052143 
044440 
047111 


042101 
047111 
044522 


002074 


043122 
044510 


020125 
042524 


047111 
042524 
052116 


4 


0 - APR -84 aor PAGE 6-31 


INTERFACE LOG 


MOV LUNIT ,L$LUN 
ERRHRD 5S,ERR12 
TRAP +e RHRD 


. WORD 

.WORD ERR12 

.WORD O 
LET (SP) := #END2 

MOV #END2 , (SP) 
ENDSRV 


L10007;: 
RTI 


‘ 
s INTERRUPT HANDLER FOR EXPECTED INTERRUPT 
; 
rahe 
INTHOL : LET (SP) := @END2 
MOV #END2 , (SP) 
ENOSRV 


L10010: 
RTI 


5 
»~NLIST BEX 
INTFAC: .ASCIZ /INTERFACE LOGIC TEST 1 TEST COMPLETE/<12><12> 
<14><33>/cTHIS IS THE DEFAULT POWER UP FONT./<12> 

/TT IS BASED ON SWITCHES,.SET ON THE PARALLEL/ 

/ INTERFACE MODULE BOARD. /<12><12> 


; 
sERROR MESSAGES ASSOCIATED WITH THIS TEST 


a 

ERR11: /LOADING PRINTER BUFFER DOES NOT CLEAR READY/ 

ERR1i2: .ASCIZ /PRINTER INTERRUPTED AT SAME LEVEL AS THE PROCESSOR/ 
pom ig -ASCIZ /PRINTER OID NOT INTERRUPT AT CPU PRIORITY 3/ 

ENDTST 
L 10006: 


TRAP = §CSETST 


-SBTTL DATA TRANSFER PATHS 
;MODULE DATPAT P11 


BGNMOD 


+ died 


SEG 0047 


CZLNADO LNOL TEST 
CZLNAD.P11 


i771 


1772 


Fn an Lan tan an 

SSR Os 

wwOww 
~~ 


011226 
011226 


011226 


011270 
011332 


0113574 
011374 


012737 
000402 


005237 


023727 
003111 


023727 
001004 


112737 
000403 


112737 


012704 


012737 
000402 


005237 


023727 
003017 


113724 
105137 


142737 


ONMAC X24.07-565 
10-APR 384 08:55 


000001 


v11770 
011770 


011770 


000125 


000077 


003114 
000001 


002300 
002300 
011722 
011722 
000200 


011770 


000002 


000001 


011722 


011722 


002300 


000102 


011722 


10-APR-84 09 
DATA TRANSFER P 


;THIS TEST aS Le ona" TRANSFER 


316 LINES. 


BGNTST 2 
Te: 


OUTPUT @OECFIN 


A 


OLUMNS. 


J4 


O07 PAGE 6-32 


THS 


AN STRI 
Pa CHARACTERS ARE TRANSMITTED ON THE 
C AFTER 16 LINES OF 
; THIS PATTERN, THE OUTPUT PATTERN IS . 
;SWITCHED TO AN ALTERNATING PATTERN 
;0F “2?” AND “@" CHARACTERS FOR ANOTHER 


05 
;PRINT TEST IDENT IF ICATION 


OUTPUT @REINIT 


OUTPUT @DATPTH, 034. 


;PRINT ALTERNATING STRINGS OF ee 


INCR PATTERN FROM @1 TO 02 BY @ 
MOV #1, ed TERN 


501108: 
501078: 


INC 
CMP 


50107 


PATTERN 
PATTERN, @2 


301118 


BGT 
IF PATTERN = @1 THEN 
CMP PATTERN, @1 


5011238: 


501158: 
50114$; 


BNE 
MOVB 
ELSE 


$0112 


#’'U.C 


501138 


$ 
LET CHAR :B= @'U 
HAR 


LET oe :B= 6°? 
?, CHAR 


Ler R4 := eOUTBUF 


| @OUTBUF .R4 
TNR CCNT FROM 1 TO #66. BY @1 
01,CCNT 


NC 
CMP 
BGT 


LE 
BICB 


501148 
CCNT 


CCNT , 066. 


501168 
LET (R4)> 
or, CHAR 


:8+ CHAR 


oC R4)» 


#200, CHAR 


s TOGGLE PAPER OFFSET 


CHAR 
T CHAR :8+ CHAR CLR.BY #200 


SEQ 0048 


IK4 


pete X28 07-565, 10 OER eA RBA ic PAGE 6-33 SEQ 0049 


CZLNADO LNOL TEST 
CZLNAD.P11 10 -APR -84 


1804 011514 LET (R4)+ :B= CHAR 
(4) 011514 113724 011722 MOVB CHAR ,CR4)+ 
1605 011520 105137 Ol11722 COMB CHAR 

1806 011524 LET CHAR :B8= CHAR CLR.BY #200 
(7) 011524 142737 000200 011722 BICB #200,CHAR 
1607 011532 END INC 

(5S) 011532 000753 BR 50115$ 

(4) 011534 501168: 

1808 011534 LET (R4)+ :R= 415 

(4) 011534 112724 000015 MOVB #15,(R4)-> 
1809 011540 LET (R4) :B* O12 

64) 011540 112714 000012 MOVB #12,(R4) 

1810 011544 INCR LINCNT FROM #1 TO 416. BY 41 
(5) 011544 012737 000001 002272 MOV #1,LINCNT 

(7) 011552 000402 BR 50117$ 

<6) 011554 50120$: 

(10) 011554 005237 002272 INC LINCNT 

(7) 011560 501178: 

(7) 011560 023727 O02272 000020 CMP LINCNT, #16. 
(9) 011566 003024 BGT 50121% 
1811 011570 OUTPUT @OUTBUF, #134. 
1812 011632 004737 005306 JSR PC, QUIET 
1813 011636 ENDINC 

(CS) 011636 000746 BR 501208 

(4) 011640 50121$ 
1814 011640 ENDINC 

€S) 011640 000661 501108 

(4) 011642 30111$: 
1815 011642 LET OUTBUF :B= 014 

(4) 011642 112737 000014 003114 MOVE $14 , OUTBUF 
1816 011650 OUTPUT @QUTBUF, #1 
1817 011712 004737 005306 JSR PC,QUIET 
1818 011716 EXIT TST 

(3) 011716 104432 TRAP CSExIT 

(3) 011720 000052 -WORD . L10011-. 
1819 -NLIST BEX 
1820 011722 000000 CHAR: -WORD O 
ed 011724 055433 030061 042155 DATPTH: .ASCIZ <33>/[{10mDATA TRANSFER PATHS TEST 2/ <12><12><12> 
1825 011770 -EVEN 
1824 011770 000000 PATTERN: -WORD O 
1825 -EVEN 
1826 EVEN 3 
1827 -LIST BEX 
1828 
1829 011772 ENOTST 

€3) 011772 L10011: 

Bt 011772 104401 TRAP CSETST 

1831 011774 ENDMOD 

1832 

1833 

1834 

1835 

1836 


CZLNADO LNOL TEST 
CZLN 


AD. 


(7) 


ANDONAOWAYNUAYNONAWH 
Rad a a ea eat De es 


- 
oO S 
© 


UOUAOO UU 
Newey yvuyvuuvVvrey 


rs 
- 
> 
dl 


1863 


Pil 


011774 


011774 
011774 
011774 


012056 


012260 


000001 


005037 
000402 


005237 
023727 


012737 
000402 


005237 
023727 


012704 


012737 
000402 


005237 
023727 


113724 


10-APR-84 08:58 °° path FRanSPeRBAts PACE &-54 


000001 


003110 


000177 


002276 


L4 


.SBTTL PRINTABLE CHARACTERS 
;MODULE PRICH1.P11 
BGNMOD 


ee 
; THIS TEST WILL PRINT A FULL LINE OF EACH CHARACTER IN THE DEC MULTINATIONAL SET. 
; IT WILL THEN SELECT PORTRAIT MODE AND DO THE SAME THING CVER AGAIN. 


roe 
BGNTST 3 
- OUTPUT @PRTCHR, 035. 
8 
; PRINT ALL CHARACTERS ON ALL UNITS 


; PRINT TEST ID 


: 
sSBRUMP =1 
OUTPUT @SELDEC,¢5 ; SELECT DECIPOINTS AS PARAMETER 
OUTPUT @#DECFIN, @S ; TOGGLE PAPER OFFSET 
INCR WORK1 FROM @0 TO #1 BY 41 ; DO THIS TWICE 
CLR WORK 1 
50123$ 
50122: 
INC WORK 1 
501238: 
CMP WORK1 , 01 
BLE 501248 
JMP $0125$ 
501245: 
INCR WORK FROM #40 TO 6177 BY @1 
MOV 040, 
BR §50127% 
501263: . 
INC WORK 
50127$: 
CMP WORK , 0177 
BLE 50130% 
JMP 501318 
501308: : an 
LET R44 ;:= GOUTBUF 
MOV - @OUTBUF ,R4 
| INCR COUNT FROM #1 TO #132. BY @1 
MOV @1,COUNT 
BR 50133$ 
501323; : 
INC COUNT 
50133: 
BLE 50134$% 
JMP 50135$ 
50134$: 


LET (R4)+ :B= WORK 
MOVB WORK, (R4 ) + 
ENOINC 


SEQ 0050 


CZLNADO LNO1 TEST 


CZLNAD. 


~—- 
ADA DAMAAAANAL, 
VIN SAGA YONOOO ~ 

WYNyyvVvVvuUVUYUY 


vV“_ 
~N 
we ee Oe Oe Oe 8 OO 


RADARAAAAAAN 
ONAN 


2sO~ 
wb 


Pil 


012260 
012262 
012262 
012262 
012266 
012350 
012334 


10-APR -&4 


000765 


112724 
004737 
000721 


112737 
004737 


012737 
000402 


005237 
023727 


012704 


012737 
000402 


005237 
023727 


113724 
000765 


112724 
004737 
000721 
005737 


001402 
000137 


000137 


M4 
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08:55 


000012 
005306 


000014 
005306 
000240 


003110 
003110 
012560 


003114 
000001 


002276 
002276 
012504 


003110 


000012 
005306 


003112 


012150 


003114 


003110 


000377 


002276 


50135$: 


501318: 


501368: 


501378: 
C 


501408: 


50142$: 
50143$: 


50144$;: 


50145$: 


50141$: 


501463: 


ENDINC 


MOVB 


PRINTABLE CHARACTERS 
BR 50132$ 


LET (R4)+ :B= OLF 


LF ,CR4)+ 
OUTPUT #OUTBUF , #133. 
JSR PC,QUIET 
ENDINC 


BR 50126$ 


LET OUTBUF :B= #14 
MOVB #14 ,OUTBUF 


JSR PC, QUIET 
INCR WORK FROM #240 TO 377 BY ¢1 
MOV 40, WORK 
BR 501378 
INC WORK 
BLE 501408 
JMP 501418 
LET R4 := #OUTBUF 
MOV “RG 
INCR COUNT FROM #1 TO 0132. BY 1 
MOV #1, COUNT 
aR 501433 
INC COUNT 
COUNT, 0132. 
50144$ 
50145$ 
LET (R4)+ :8= WORK 
WORK, (R4)+ 


ENDINC 
50142$ 
LET (R4)+ :B= OLF 
MOVB 


 §01368 

IF WORK1 EQ #0 THEN 
TST WORK 1 

BEG . +6 


JMP 50146$ 
OUTPUT #PORSG, #25. 


JMP 501l22$ 


SEQ 0051 


; EXECUTE TOF 
; FOR EXTENDED VERSION ONLY 


; DO THIS ONLY THE FIRST TIME 


; CHANGE TO PORTRAIT AND 


CZLNADO LNO1 TEST 
CZLNAD .P11 


012640 
012640 
012702 
012702 
012710 
012752 
013014 
013056 


013062 


013202 
013202 
013202 


013204 


013204 


112737 


004737 
177777 


104432 
000116 


055433 
042524 
033 


164 
013202 


104401 


DNMAC X24.07-565 
10-APR-84 08:55 


000014 


005306 


030061 
052123 
120 
141 


003114 


050155 
041440 
061 
156 


0-APR-84 
PRINTABLE oC HARAG 


50125% 


N4 


197 ac PAGE 6-36 


OUTPUT * @DONE , #14 


LET OUTBUF :B= @ 
MOVB 
OUTPUT #OUTBUF ,¢@ 


#14 
OUTBUF 


OUTPUT @REINIT, 92 
OUTPUT @SELDEC, 05 
JSR PC, QUIET 


; TEST DONE MESSAGE 


; EXECUTE TOF 
; GO BACK TO DEFAULT 


-ASCIZ <33>/[(10mPRINTABLE CHARACTERS TEST 3/ <12><12><12> 


33,120,61,75,61,61,175,104,105,124,151 
164,141,156, é1, 60,55,122,33,134, 33,133 -61,61,155 


S THIS TEST CHECKS FOR DETECTION OF ALL NON-PRINTABLE CHARACTERS 
FOR HORIZONTAL T/ LINE oe TAB, FORM 


TERS BY THE LNO1. 


ONTROL CHARAC EACH 
APPEAR ON THE PRINTER OUTPUT IN THE FORM OF ITS OCTAL 


$BRIMP=-1 
EXIT TST 
TRAP CSEXIT 
. WORD L10012-. 
.NLIST BEX 
PRT TCHR ; 
DONE : ASCII /TEST COMPLETE/<12> 
PORSQ: .BYTE 
BYTE 
.EVEN 
ENDTST 
L1001e: 
TRAP CSsETST 
.LIST BEX 
ENDMOD 
-SBTTL NON-PRINTABLE CHARACTERS 
;MODUL NOPRIN.P11 
~— 
sEXCEPT B, 
;WOULD BE INTERPRETED AS VALID CON 
sCHARACTER WILL 
;CODE ACCOMPANIED WITH ITS 
3122 OF THE TE 
;IF THE CONTROL CODE HAS TAKEN UP A SPACE IN THE 


;OF T 


“NOTE o 


IF THIS TEST IS ASSEMBLED AS PART OF VERSION 1 LNO1 DIAGNOSTIC 
NO ALL ye oa a CODES. THE ASSEMBLER 


STED CODE ARE THEN SENT FOLLOWED BY AN “@” CHARACTER. 

4AS FE? THE “a” CHARACTER 
IN OF T CODE HAS NOT 
ping A UP SPACE IN THE BUFFER THE "@" WILL APPEAR IMMEDIATELY TO THE RIGHT 
HE MNEMONIC FOR THE CONTROL CODE. 


AND, IF 


: “.IF OF VERS.1”, 
VERS.1 IS DEFINED IN SKEL 2 THEN IT WILL ASSEMBLE THE CODE 


SEQ 0052 


3 SEQS TO ASSIGN AND SELECT PORT 


CZLNADO LNOL TEST 


CZLNAD .P 


SPYOanNe O 


& 


—- 
ADAQRAARAAMN 


uw 
~ 


il 


013204 
013204 


013204 
013246 
013310 
013310 
013314 
013314 


013322 
013322 
013326 
013326 
013334 
013336 
0133356 
013342 
013342 
013350 
013352 
013352 


012704 
012757 


005037 


012737 
000402 


0052357 


023757 
003063 


012703 


012737 
000402 


005237 


023727 
003002 


112423 
000770 


0127357 
000402 


0052357 
023727 


10-APR-84 O08: 


014124 
0000355 


002276 
900001 


002272 
002272 


003114 


000001 


003110 
003110 


000001 


003110 
003110 


on at X24.07-5635 10-APR-84 


003112 


002272 


003112 


003110 


000010 


003110 


000172 


+ 


; FOR THE 8 BIT CONTROL CODES AS WELL AS THE NORMAL 7 BIT CONTROL 


og 
09:07 PAGE 6 
NON -PRINTABLE CHARACTERS 
: CODES. 
ne 
BGNTST 4 


T4::; 
s INDICATE TEST CURRENTLY BEING DONE 


OUTPUT @REINIT, 02 
OUTPUT @NONCHR O75. 
LET R4 :* ONONBUF 
MOV @NONBUF ,R4 
LET WORKI := @27, 
MOV 027. ,WORKI 


; DO ONE LINE FOR EACH TABLE ENTRY 
LET COUNT :* 00 
CLR COUNT 
INCR LINCNT FROM @1 TO WORK1 BY o1 
MOV @1,LINCNT 
BR 501478 
INC LINCNT 
"CMP LINCNT ,WORK 1 
8GT 501518 
LET RS :* SOUTBUF 
MOV COUTBUF LR 
; MOVE CODE AND MNEMONIC TO PRINT BUFFER 


INCR WORK FROM @1 TO 08. Br 61 
WORK 


CMP . | 
BGT 8 
LET (R3)> :Be (RA)- 
MOVE (R4}+,CR3)- 
ENDINC . 
BR 501538 
501548: | 


é : 
; PUT 120 BYTES OF CODE INTO PRINT BUFFER 
INCR WORK FROM @1 T0 @le2. BY 41 


MOV 01, WORK 
BR 501558 
501568: 
WORK 
501558: 
CMP WORK ,@122. 


SEQ 0053 


CZLNADO LNOL TEST 


CZiLNAD 


— 


-P1l 


013524 


013532 


0035002 
111423 
000770 


112725 
112725 


004737 
005204 
000707 


012704 
012757 


005037 


012737 
000402 


005237 


023737 
003063 


012703 


012737 
000402 


0052357 


023727 
003002 


112423 


000100 
000012 


005506 


014507 


003112 


002272 


003112 


003110 


000010 


BGT 
MOVB 


BR 
501578: 


50157% 


Cc 


DNMAC X24.07-563 10-APR- 0) 7 PAGE 6-38 
10-APR-84 08:55 NON -P TNTABLE CAARACTERS 


LET (R3)>+ :Be (RO) 
CR4),CR3)> 
NC 


I 
501568 


5 
; FOLLOWED SY AN "@” CHARACTER AND A LF 


3 
3; PRINT 


501518: 


LET (R3)+ :B* 0100 +a” 
MOVB #100,(R3)> 

LET (CR3)+ :B= O12 sLF 
MOVB #12,(R3)-« 


LINE OF OCTAL CODE, MNEMONIC, 120 BYTES(NONPRINTABLE CODE), AND “a” 


OUTPUT wade "| ede 


3501508 


IeT 


:2® R4 «+ @1 


LET R4&4 := @NONBF 1 
MOV @NONSF 1, R4 
LET WORKI :* @ 

@32. ,WORKI 


; DO ONE LINE FOR EACH TABLE ENTRY 
LET COUNT ;* @0 
Ra Cc 


MOV 


32. 


CL OUNT 
INCR LINCNT on A TO WORK1 BY o1 


MOV @1, LINCN 
aR S01 

INC ——-LINCNT 

CMP ss LINCNT ,WORK1 
GGT $0162 


> '$ 
LET RS :* GOUTBUF 
eOUTBUF ,R 


3 


; MOVE CODE AND MNEMONIC TO PRINT BUFFER 


501648: 
50163; 


INCR WORK FROM 01 TO 08. BY e1 
WORK 


MOV o1 Ww 
BR 5016358 
INC WORK 
CMP WORK , 08. 
BGT 501653 
LET (R3)> :B= (R4)> 
MOVB (R4)+¢, CR3)-> 


DS 


4 ) ) ) . o . c 
SENABCPL Yo? "ES!apr ea BYTE *°*-°7 S65 \oACHAPRERALE BARRAC TERE &°39 af 0055 
1991 013614 ENDINC 
(5) 013614 000770 BR 501648 
(4) 013616 501658: 
1992 
1993 : 
= ; PUT 120 BYTES OF CODE INTO PRINT BUFFER 
F 
1996 013616 INCR WORK FROM 61 TO @122. BY 41 
(5) 013616 012737 O00001 003110 MOV 01 , WORK 
(7) 013624 000402 BR 50166$ 
(6) 013626 501678: 
.10) 013626 005237 003110 INC WORK 
(7) 013632 501668: 
€7) 013632 023727 003110 000172 CMP WORK ,@122. 
(9) 013640 003002 8GT 50170% 
1997 013642 LET (R3)+ :Be (RG) 
(4) 013642 1114235 MOVB CR4),CR3)> 
1998 013644 ENDINC 
(5) 013644 000770 BR 50167$% 
(4) 013646 501708: 
1999 
2000 F 
Saas ; FOLLOWED BY AN "@" CHARACTER AND A LF 
H 
2003 013646 LET (R3)>+ :B= 0100 ;"a” 
(4) 013646 112723 000100 MOVE #100,(R3)>+ 
2004 013652 LET (R3)>- :B= @l2 LF 
Bit. 013652 112723 000012 MOVB #12,(R3)> 
3 
poe ; PRINT LINE OF OCTAL CODE. MNEMONIC, 120 BYTESCNONPRINTABLE CODE). AND “a” 
3 
2008 013656 OUTPUT @OUTBUF , 0132. 
2009 013720 004737 005306 JSR PC, QUIET 
2010 013724 LET R@ :* RA + O1 
(7) 013724 005204 We 
2011 013726 ENDINC 
(5) 013726 000707 BR 501618 
(4) 013730 501623; : 
2613 013730 LET OUTBUF :B= 014 
(4) 013730 112737 000014 003114 Move #14 ,.OUTBUF 
2014 013736 OUTPUT @OUTELF ,o 
2015 014000 004737 005306 JSR PC, QUIET 
2016 014004 EXIT TST ;AND EXIT TEST 
€3) 014004 104432 TRAP CSExIT 
poe 014006 001144 WORD 1&10015-. 
; | 
ats sCHARACTER BUFFER AND TEST HEADER MESSAGE 
$ 
2020 -NLIST BEX 
2021 014010 055433 030061 047155 NONCHR: .ASCII <33>/[{ LOmMNON-PRINTABLE CHARACTERS TEST 4/<12> 
—s 014055 101 043040 046125 -ASCIZ /A FULL LINE OF EACH CODE WILL BE SENT/<12> 
2024 014124 030040 030060 047040 NONBUF: .ASCII / OOO NUAL/<O> 
2025 014135 040 030060 020061 ASCII / 001 SOH/<1> 
2026 014146 030040 031060 051440 ASCII / O02 STX/<2> 
2027 014157 040 030060 020065 ASCII / O03 ETX/<53>» 


CZLNADO LNOL TEST 
CZ.NAD.P11 


014170 


10-APR-84 08:55 


030040 


E> 


ONMAC X24.07-563 10-APR-84 09:07 P 6-40 
NON-PRINTABLE CHARACTERS 


032060 042440 ASCII / 004 EOT/<4> 
030060 9020065 ASCII / 005 ENQ/<5> 
033060 040440 ASCII / 006 ACK/<6> 
030060 020067 ASCII / 007 BEL/<7> 
030061 041040 ASCII / 010 BS /<10> 
030460 020066 ASCII / 016 SO /<16> 
033461 051440 ASCII / 017 SI /<17> 
031060 020060 .ASCII / 020 DLE/<20> 
030462 054040 -ASCII / O21 XON/<21> 
031060 020062 -ASCII / O22 DOC2/<22> 
031462 054040 SCII / 023 x0OF/<23> 
031060 020064 ASCII / 024 DC4/<24> 
032462 047040 .ASCII / 025 NAK/<25> 
031060 020066 ASCII / 026 SYN/<26> 
033462 042440 ASCII / O27 ETB/<27> 
031460 .ASCII / 030 CAN/<30> 
030463 042440 -ASCII / O31 EM /<31> 
031460 020062 II / 032 SUB/<32> 
032063 043040 ASCII / O34 FS /<34> 
031460 020065 II / 035 GS /<35> 
033063 051040 ASCII / 036 RS /<36> 
031460 020067 II / 037 US /<37> 
033467 042040 ASCII / 177 DEL/<177> 
020060 NONSFi: . ¢ Some 3 4<200> 
030460 020040 5 II / 201 /<201> 
030062 020062 -ASCII / 202 4<202> 
031460 020040 ASCII / 203 7<203> 
030062 020064 -ASCII / 204 IND/<204> 
032460 047040 -ASCII / 205 NEL/<205> 
-ASCII / 206 SSA/<206> 
033460 042440 -ASCII / 207 ESA/<207> 
020060 -ASCII / 210 HTS/<210> 
030461 044040 ASCII / 211 WTJ/<211> 
020062 ASCII / 2ile vts/<2i2> 
031461 050040 5 II ¢ 213 PLO/<215> 
030462 020064 -ASCII / 214 PLU/<214> 
032461 051040 -ASCII / 215 RI /<215> 
0 020066 -ASCII / 216 $S2/<216> 
033461 051440 ASCII / 217 £$3/<217> 
031062 020060 ASCII / 220 4<220> 
050040 ‘ II / 221 PU1/<221> 
031062 020062 -ASCII 7/ 222 PU2/<222> 
031462 051440 : Il / 223 S$T$/<2235> 
1062 020064 -ASCII / 224 CCH/<224> 
032462 046440 < II / 225 MW /<225> 
031062 020066 P II / 226 SPA/<226> 
033462 042440 -ASCII / 227 EPA/<227> 
031462 020060 -ASCII 7 230 1¢230>» 
030463 020040 ASCII 7 231 4<231> 
031462 020062 ASCII 7 232 4<232> 
031463 041440 -ASCII / 233 CSI7<233> 
031462 0O -ASCII / 234 ST /<234> 
032463 047440 ‘ I / 235 0SC/<235> 
031462 0O ASCII / 236 PM /<236> 
033463 0640440 ASCII / 237 APC/<237> 


SEQ 0056 


rs 


CZLNADO LNOL TEST ONMAC X24.07-563 10-APR-84 09:07 PAGE 6-41 SEG 0057 
CZLNAD .P11 14)-APR-84 08:55 NON-PRINTABLE CHARACTERS 
peng 015150 000000 NUM: .WORD O 
2088 .LIST BEX 
2089 015152 ENDTST 
€3) 015152 10013: 
(3) 015152 104401 TRAP CSETST 
2090 
2091 015154 ENDMOD 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 .SBTTL PRINT CONTROL 
be ; MODULE PRNCON.P11 
oer 015154 — 
2107 ‘THIS TEST ha THE PRINT Po age BY SENDING MORE THAN 132 CHARACTERS 
2108 sBEFORE SENDING A CARRIAGE RETURN AND LINE FEED. ALL CHARACTERS IN EXCESS 
iH gph 132 CHARACTERS SHOULD BE DISREGARDED. 
2111 * THREE LINES ARE pect hg He PER ITERATION, THESE LINES WILL IDENTIFY THE 
21le ;COLUMN NUMBERS ACROSS THE PAGE. EXAMPLE 
2113 0 0 Reopened i eee 1 
2114 1 e Ber ek ae 6 kia eee ae 3 
Stes 1125456 78901254567890125456 7890. 022002002 2000001 012 
ta sNOTICE THAT THE PRINTOUT SHOULD IDENTIFY 132 COLUMNS ACROSS THE PAGE. 
cane S THIS OUTPUT {IS REPEATED 13 TIMES. 
3-* : 
2121 015154 SGNTS?’ 5 
(3) 015154 TS:: 
2123 015154 OUTPUT @DECFIN, 05S ; TOGGLE PAPER OFFSET 
2125 015216 OUTPUT @REINIT,.@2 
2126 015260 LET R1 :* LSUNIT - @1 
(S) 015260 013701 002012 MOV LUNTT RI 
€7) 015264 005301 | DEC Ri 
2127 000001 SBRIMP «1 
2128 015266 INCR LUNIT FROM ve TO R1 By o1 
(S) 015266 005037 002310 CLR UNIT 
€7) 015272 000402 BR 501728 
(6) 015274 501718: 
(8) 015274 005237 002310 INC LUNIT 
C6) 015300 50172$: 
€7) 015300 023701 002310 CMP LUNIT,R1 
(9) 015304 003402 BLE 50173$ 
€7) 015306 000137 016144 JMP 50174% 
(6) 015312 501733: 
2129 015312 LET R2 ;= CUNIT SHIFT 1 


CZLNADO ot TEST 
C2L Pil 10-APR -84 


NAD. 


AARAABRAAAN 
AnNDNOON~ 
ww 


015312 
015316 
015320 


015516 
015516 
015522 
015522 
015522 
015524 
015526 
015532 
015572 
015572 
015574 
015574 


013702 
006302 


012737 


012705 


005715 
001002 
000137 


000755 


112737 


012705 


012737 
000402 


005337 
023727 


002002 
0001357 


000746 


GS 


whtag X28 0756S nO MER PA, 0929? PAGE 6-42 


002310 


000015 


016424 


015446 


000012 


016460 


015574 


000016 


002272 
002272 
015732 


002276 
002276 
016060 


002276 


003114 


002272 


501758: 


501768: 


501778: 


50200$ : 


502018: 


50202$: 


502033: 


50204$: 


MOV 
ASL 


DEC 


TST 
BGT 
JMP 


* iol ~R2 
OUTPUI @#PRICTL,#61.,,LUNIT 
LET COUNT :- O13. 
—— 
LET RS :* @TABLEL 
@TABLE1,R5S 
WHILE (RS) NE #0 DO 
CRS) 
6 
50176 
50175$ 
LET OUTBUF al #12 
@12,O0UTBUF 
OUTPUT @OUTBUF , 01, .LUNIT 
LET RS := @TABLE? 
@TABLE2],RS 
WHILE CRS) NE #0 DO 


CRS) 


200% 

OUTPUI (RS) #10. ® »=LUNIT 
501778 
OUTPUI SOUTBUF ,. 01, .LUNIT 


DECR LINCNT FROM 014. TO #1 BY 1 
502028 


LINCNT 


‘LINCNT, 01 
502038 


50204 $ 

OUTPUI @X11,010..,LUNIT 
ENODECR 
50201% 
OUTPUI @OUTBUF ,¢1, .LUNIT 
OUTPUI SOUTBUF ,@1, .LUNIT 
LET COUNT :* COUNT - @1 
COUNT 
IF COUNT GT 60 THEN 
COUNT 


.*6 
50205% 


SEQ 0058 


CZLNADO LNOL TEST 
CZUN 


AD.P11 


016054 


016140 
016144 


016144 
016144 
016146 


016150 
016205 


016246 


016424 
016460 


016514 
016514 
016514 
016516 


016516 


10-APR -84 


000137 


004737 
112737 
004737 
000137 
177777 


104432 
000346 


016246 
016260 


104401 


DNMAC X24.07-563 


08:55 
015370 


005306 
000014 
005306 
015274 


016246 
016272 


003114 


050155 
046125 


0-APR - 
PRINT CONTROL 


502058: 


»NLIST 
PRTCTL: 


MOVB 


BEX 
-ASCII <33>/{10mPRINT CONTROL TEST 5/ <12> 
IZ /SHOULD SHOW 132 COLUMNS PRINTED/<12><12><15> 


“EVEN 


-LIST BEX 


ENOTST 


110014: 


ENDMOO 


; 
BGNMOD 


TRAP 


H5 


4 09:07 PAGE 6-43 


JMP 1% 
ENDIF 


JSR PC, QUIET 

LET OUTBUF :B= #14 
#14 , OUTBUF 

OUTPUI @OUTBUF ,#1,,LUNIT 
JSR PC QUIET 


50171$ 


CSExIT 
10014 *'» 


SE i i En Tt in i, 
Pe) 
~ 


4123456 7890/ 


XO, XO,XO,XO,X0,X0,XO,XO,XO,X1,X1,X1,X1,0 


ML, XS, X%35,X%4,X5,X6,X7,X8, X9,XO,X1,X2,X%3,0 


CSETSt 


.SBTTL MULTIPLE LINE ADVANCE 
MODULE 


MULTLI.PL1 


SEQ 0059 


CZLNADO LNOL TEST 
CZLNAD.P11 10-APR-84 08:55 


dl 


016516 
016516 


016516 


016770 


012737 


117737 
013746 


012703 


012737 
000402 


005237 


023727 
003003 


117723 
000767 
005004 
020437 
001404 
112723 


005204 
000771 


ONMAC X24.07-5635 10-APR-84 


017142 


002272 


000012 


017140 


002272 


002300 


L5 
On1OT PAGE 6-44 


MUL TIPLE CINE ADVANCE 


gee 
sTHIS TEST CHECKS THE MULTIPLE LINE ADVANCE OF THE LNO1. A LINE OF 
sNUMBERS IS SENT AND THEN A NUMBER OF LINE FEEDS ARE SENT. THUS THE 
sNUMBER PRINTED WILL INDICATE THE NUMBER OF BLANK pee FOLLOWING THAT 
s;LINE. THE NUMBER OF LINES IS VARIED BETWEEN 2 AND 7 i A LINE OF 
;ALL O'S WILL INDICATE THE END OF THE TEST SEQUENCE 

;=<- 


BGNTST 6 

T6:: 

sPRINT TEST IDENTIFICATION 
OUTPUT @DECFIN, 45 


OUTPUT @REINIT, #2 
OUTPUT @MULINE, 091. 


s TOGGLE PAPER OFFSET 


LET STACHR := @&TABSTR sOUTPUT CHARACTERS 
MOV @TABSTR,STACHR 
mod 
LET LINCNT :B8* SSTACHR ;GET A CHARACTER TO OUTPUT 
MOVE @STACHR,LINCNT 
LET LINCNT := LINCNT AND 07 sMAKE THE ASCII TO OCTAL 
MOV LINCNT, -C SP) 
BIC 67,(SP) 
BIC (SP )+, LINCNT 
LET RS := sSET UP OUTPUT BUFFER 


MOV @OUTBUF ,R 
INCR CCNT FROM @1 TO #132. BY #1 
MOV @1,CCNT 


502108: 
CCNT 
502078: | 
oy So aad 
LET CR3S)> bd @STACHR ;PUT CHARACTER IN OUTPUT SUFFER 
MOVE 8s TACHR, CRS) 
ENDINC 
BR — §0210% 
50211$ 7 
LET R4 := 0 
CLR RG 
WHILE R4 NE LINCNT 00 
502123: 
CMP R4,LINCNT 
BEQ 50213% 
LET CR3E)+ :Bs O12 sF ILL WITH LINE FEEDS 
MOVB l12, de 
LET R4 :* RA e 1 
INC RE 
ENODO 
BR 50212$% 


SEQ 0060 


J5 


on X24.07-5635 10-APR-84 09:07 PAGE 6-45 
MULTIPLE LINE ADVANCE 


CZLNADO LNO1 TEST 
CZLNAD.P11 10-APR-84 O 


SEQ 0061 


016772 


016772 
016772 
016776 
017002 
017002 
017006 
017046 


017052 
017052 
017056 
017060 
017060 
017066 
017130 
017134 
017134 
017136 


017140 


017142 
017157 
017222 


017314 
017314 
017314 
017316 


017316 


013704 
062704 


005237 
004737 
005737 
001305 
112737 
004737 


104432 
000156 


052516 


017314 


104401 


002272 
000204 
017140 
005306 


002272 


000014 
005306 


033062 
030533 
041115 


003114 


50213$: 
s;NOW OUTPUT THE ACTUAL LINE 


LET R&4 ;:* LINCNT «+ #132. sNUMBER OF CHARACTERS TO OUTPUT 
MOV LINCNT ,R4 


ADD #1352. ,R4 
LET STACHR :* STACHR + #1 
INC STACHR 
OUTPUT @OUTBUF ,R4 
JSR PC, ET 


UNTIL LINCNT EQ #0 
TST LINCNT 
50206 $% 


BNE 
LET OUTBUF :B= #14 
MOVB 


"eiaca teal 
OUTPUT OOUTBUF , 1 
JSR PC .QUIET 


; UPDATE CHARACTER COUNT 
sOUTPUT THE LINE 


CsExIT 


-WORD 110015-. 


4272637463540/ 
<33>/( 10mMULTIPLE LINE ADVANCE TEST 6/<12> 
/NUMBERS PRINTED REPRESENT ® LINES TO NEXT LINE PRINTED/<12><12> 


-EVEN 
-LIST BEX 


ENDTST 
L10015: 


CsETsT 
ENDMOD 3 


.SBTTL OVSTRIKE 
BGNMOD 


THIS TEST WILL VERIFY CORRECT OPERATION OF THE PRINTER WHILE OPERATING 
‘JUST WITHIN OVERSTRIKE, LINE BUFFER AND PAGE GUFFER LIMITS. 


SIN LANDSCAPE, UP TO 142 PRINTABLE CHARS/LINE ARE PERMITTED, WITH 


CZLNADO oe TEST 
C2ZL. Pil 10-APR-84 08:5 


LNAD. 


(5) 


017316 
017316 


017316 
017360 
017422 
017464 
017526 


017570 


017724 


012701 
000401 


005201 


020127 
003105 


012704 
012702 
000401 
005202 


020227 
003003 


112724 
000771 


112724 
004737 
012704 


012702 
000401 


005202 
020227 


KS 


Diag X24 .07-565, 10, 0rB 84 09:07 PAGE 6-46 


000001 


000062 


003114 
000001 


000113 


000057 


000015 
005306 
003114 
000001 


0001153 


;A MAXIMUM OF FIVE CARRIAGE RETURNS/LINE. IN PORTRAIT, 


UP TO 150 


sCHARS/LINE WITH A MAXIMUM OF TWO CARRIAGE RETURNS/LINE ARE ALLOWED. 


: 
NOTE; 


BGNTST 7 
T7:: 


OUTPUT @DECFIN, ¢@5 
OUTPUT #REINIT, #2 
OUTPUT @VPA, 06 
OUTPUT @PORSEL ,@5 
OUTPUT @OVTEST, 419. 


; OVERLAY TWO LINES OF SEVENTY-FIVE CHARS 
INCR R1 FROM @1 TO #50. BY o1 
MOV @1,R1 
"INC Ri 
"CMP RL. 050. 
BGT 50216 
LET R4 :e eouTeUF 


MOV @OUTBUF ,R4 
INCR Re FROM @1 TO 075. BY #1 
MOV #1,R2 
50217 


502208: 
INC Re 
502178: - 


50221: 
| LET (Ra) 38= #15 
eC R4)+ 
‘OUTPUT. @OUTBUF , 076. 
JSR PC, IET 
LET R4&4 ;:= SOUTBUF 
MOV @OUTBUF ,R4 
INCR R2 FROM #1 TO #75. BY @1 
MOV #1,R2 
BR 502228 
502255; 
Re 
50222: 


R2,¢75. 


THIS TEST IN A SOMEWHAT MODIFIED FORM IS BEING USED ALSO FOR 
THE VAX VERSION OF THE LNO1 EXTENDED DIAGNOSTIC. 


TOGGLE PAPER OFFSET 
SET VERTICAL POSITION 


SELECT PORTRAIT MODE 
IDENTIFY TEST 


5O LINES 


SEQ 0062 


Be 


CZLNADO LNO1 TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 6-47 SEQ 0063 


CZLNAD.P11 10-APR-84 08:55 OVSTRIKE 
€9) 017730 003003 BGT 50224% 
2310 017732 LET (R4)+ :B= 0134 
(4) 017732 112724 000134 MOVB #134,(R4)> 
2311 017736 ENDI 
(5) 017736 000771 BR 50225% 
(4) 017740 502248: 
2312 017740 LET (R4)+ :B= 415 
(4) 017740 112724 000015 MOVB #15,(R4)-+ 
2313 017744 LET (R4)+ :B* 12 
(4) 017744 112724 000012 MOVB #12,(R4)>+ 
2314 017750 OUTPUT #OUTBUF ,077. 
2315 020012 004737 005306 JSR PC, QUI 
2316 020016 ENOI 
(5) 020016 000667 BR 502153 
(4) 020020 502168: 
2317 020020 LET OUTBUF :B= 14 
(4) 020020 112737 000014 003114 MOVB #14 ,OUTBUF 
2318 020026 OUTPUT @OUTBUF , 1 
— 020070 004737 005306 JSR PC, QUIE 
3 
ret ; OVERLAY TWO LINES OF SEVENTY-ONE CHARS 
é 
2323 020074 OUTPUT @LANSEL , 65 ; SELECT LANDSCAPE MODE 
2324 020136 INCR R3 FROM 61 TO #66. BY #1 ; 66 LINES OF OVERPRINTING 
€S) 020136 012703 000001 MOV €1,R3 
€7) 020142 0O00401 BR 502253 
(6) 20144 502263: 
€10) 020144 005203 INC R3 
€7) 020146 5022538: 
€7) 020146 020327 000102 CMP R3, 066. 
€9) 020152 003105 BGT 50227% 
2325 020154 LET R4 := GOUTBUF 
(4) 020154 012704 003114 MOV (eOuU ~R4 
2326 020160 INCR R2 FROM #1 TO #71. BY 41 
€S) 020160 012702 000001 MOV #1,R2 | 
€7) 020164 000401 ~—6-§§02508 
(6) 020166 502318: 
€10) 020166 005202 INC Re 
€7) 020170 5023508: 
€7) 020170 020227 000107 R2,971. 
€9) 020174 003003  §$0232% 
2327 020176 LET (R4)>+ :B= 057 
(4) 020176 112724 000057 MOVB @57,(R4)-« 
2328 020202 ENDINC : 
(5) 020202 000771 BR 50231% 
(4) 020204 502325: | ae 
2329 020204 LET (R4)+ :B= O15 
(4) 020204 112724 000015 MOVB #15, CR4)> 
2330 020210 OUTPUT @OUTBUF , 072. 
2331 020252 004737 005306 JSR PC. QUIE 
2332 020256 LET R4 :* eouTBUF 
(4) 020256 012704 003114 MOV @OUTBUF ,R 
2333 020262 NCR R2 FROM re TO #71. BY #1 
(S) 020262 012702 000001 MOV #1,R2 
€7) 020266 000401 BR 502353% 
(6) 020270 502345: 


CZLNADO LNO1 TEST 


CZLNAD .P11 


(10) 020270 
020272 


lv- 


005202 


020227 
003003 


112724 
000771 


112724 
112724 
004737 
000667 
104432 
000046 
053117 

033 


033 
033 


104401 


104450 
103402 


104432 
003026 


000107 


000134 


000015 
000012 
005306 


051105 
133 
133 
135 


052125 
061 
061 
063 


M5 


apr.aa SNMBE X24.07-563, 10-aPR-84 09:07 PAGE 6-48 


INC R2 
50253$: 
CMP R2,¢@71. 
BGT 502358 
LET (R4)+ ;:B= 4134 
ENDINC 
BR 50234% 
502358: 
LET (R4)+¢ :B= 415 
MOVB #15,(R4)>+ 
LET CRA)» :B= #12 
vB a 
OUTPUT eOUTBUF , 075. 
JSR PC, QUIET 
ENDINC 
BR 50226% 
2e7s: 
EXIT TST 
TRAP CSEXxIT 
ns L10016-. 
-NLIST BEX 


OVTEST: .ASCIZ /OVERSTRIKE TEST 7/<12><12> 
LANSEL: .BYTE 35,1335,61,60,155 

PORSEL: .BYTE 335,1353.61.61,155 

VPA: -BYTE 33,1335,635,60,60, 104 


TRAP CsETST 


ENDMOD 
-SBTTL READY LINE INTERLOCKS TEST 8 
;MODULE OLOLCK.P11 


BGNMOD 


3+ 

; THIS TEST CHECKS THE OPERATION OF THE 

s;PRINTER READY INTERLOCK SWIT eta 

sMANUAL INTERVENTION IS USED T 

SOPEN THE INTERLOCKS TO PRODUCE FAULTS 

3;IN THE PRINTER AFTER WHICH THE RESULTANT ERROR 
s INDICATION Is VERIFIED. 

5.24 


. WORD 0017-. 
sEXIT TEST IF MANUAL INTERVENTION TESTS ARE NOT SPECIFIED 


SEQ 0064 


NS 


CZLNADO LNO1 TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 6-49 SEG 0065 
CZLNAD.P11 10-APR-84 08:55 READY LINE INTERLOCKS TEST 8 
2370 020450 11$: IF INHINT EQ #0 THEN 
(6) 020450 005737 002264 TST INHINT 
€10) 020454 001002 50236% 
2371 20456 EXIT TST 
(3) 020456 104432 TRAP CSEXxIT 
(3) 020460 003014 . WORD L10017- 
2372 020462 ENDIF 
(4) 020462 502363: 
2373 020462 LET FLAG := #0 
(4) 020462 005037 002270 CLR FLAG 
2374 020466 LET R1 :* LSUNIT - 41 
(S) 020466 013701 002012 MOV LSUNIT,R1 
ahod 020472 0053501 DEC Ri 
2376 ;CHECK FOR ERROR IN EACH PRINTER UNDER TEST 
2377 020474 INCR LUNIT FROM #0 TO Ri BY 41 
(5) 020474 005037 002310 CLR LUNIT 
(7) 20500 000402 BR 50237% 
(6) 020502 502405: 
€10) 020502 005237 002310 INC LUNIT 
(7) 020506 50237$: 
€7) 020506 023701 002310 LUNIT,R1 
(9) 020512 003020 BGT 18 
2378 020514 LET R2 := LUNIT SHIFT 1 
C5) 020514 013702 002310 = LUNIT ,R2 
(8) 020520 006302 Re 
2379 020522 #BIT15 SETIN ye oe THEN 
(6) O20522 032772 100000 002352 BIT #BIT15.a@L.PCSR(R2 
€10) 020530 001410 BEQ 50242% 
2380 20532 LET ERRTBL(R2) := ERRTBL(R2) «+ 41 
€7) 020532 005262 003050 INC ERRTBL(R2) 
2381 020536 » CSRERR 
€4) 020536 104456 TRAP CSERHRD 
(5) 020540 000006 WORD 6 
©) 020542 003342 P CSRERR 
(5S) 020544 000000 ‘ 0 
2382 020546 7 LET. @LPCSR(R2) := #0 
(4) 020546 005072 002352 CLR SLPCSR( Re) 
2383 920552 ENDIF 
(4) 020552 50242$: : 
2384 020552 END See ee 
(5S) 020552 000753 50240$ 
(4) 020554 peeree ; 
2385 
pha : PRINT TEST NAME — 
2388 020554 OUTPUT @INTLK, 028. 
2389 020616 OUTPUT #BL 044. 
2390 ; VERIFY OPERATION. OF PAPER OUT INTERLOCK SWITCH 
pies ;sHARD CODED INCREMENT LOOP 
2393 020660 LET ERRFLG := 60 
(4) 020660 005037 002334 CLR ERRFI.G 
2394 020664 005037 002310 CLR LUNIT 
2395 020670 000405 BR 1$ 
2396 020672 2$: 


bo 


CZLNADO LNO1 TEST ONMAC X24.07-563 10-APR-84 09:07 PAGE 6-50 SEG 0066 
CZLNAD.P11  10-APR-84 08:55 READY LINE INTERLOCKS TEST 8 
2397 020672 005237 002310 INC LUNIT 
2398 020676 LET R2 :* LUNIT SHIFT 1 
(5) 020676 013702 002310 MOV LUNIT ,R2 
(8) 020702 006302 ASL R2 
2399 020704 1s: 
2400 020704 023701 002310 CMP LUNIT,R1 
2401 020710 003402 BLE 33 
2402 020712 000137 021444 UMP 4$ 
2403 020716 3$: 
2404 020716 LET FLAG :* 80 
(4) 020716 005037 002270 CLR FLAG 
2405 020722 PRINTF OPAPRSW 
(7) 020722 012746 022356 MOV OPAPRSW, -( SP) 
(6) 020726 012746 000001 MOV @1,-(SP) 
(3) 020732 010600 MOV SP ,RO 
(4) 020734 104417 TRAP = CSPNTF 
(4) 020736 062706 000004 ADD 04,SP 
2406 020742 PRINTF @PAPSW1,LUNIT 
(8) 020742 013746 002310 MOV LUNIT, -(SP) 
(7) 020746 012746 022462 MOV @PAPSW1, -(SP) 
(6) 020752 012746 MOV @2, -(SP) 
(3) 020756 010600 MOV RO 
(4) 020760 104417 TRAP =: CSPNTF 
(4) 020762 062706 000006 06. SP 
2407 020766 PRINIF @PAPSW2 
(7) 020766 012746 022542 MOV OPAPSW2, -( SP) 
(6) 020772 012746 000001 MOV @1, -(SP) 
(3) 020776 010600 MOV SP,RO 
(4) 021000 104417 TRAP CSPNTF 
(4) 021002 062706 000004 ADD 04,SP 
2408 021006 GMANIL READY, FLAG, 100000, YES 
(3) 021006 104443 TRAP  CSGMAN 
(3) 021010 000404 ar 100008 
(4) 021012 002270 .WORD FLAG 
(5) 021014 000130 .WORD . TSCODE 
(5) 021016 007006 .WORD READY 
(5) 021020 100000 .WORD 100000 
(3) 021022 100008: ae | 
2409 021022 LET LINCNT :* 02 : LINE COUNT WILL ALLOW FOR 3 PAGES OF PAPER 
(4) 021022 012737 000002 002272 MOVs @2, LINCNT 
2410 021030 LET ERRFLG :* 00 
(4) 021030 005037 002334 LR —séERRFL 
2411 021034 REPEAT 
(3) 021034 50243$: | | 
2412 021034 OUTPUT @PAPTST, 02,058 ,LUNIT 
2413 021076 LET LINCNT :* LINCNT «+ @1 
(7) 021076 005237 002272 INC LINCNT | 
2414 021102 IF LINCNT EQ 065. OR LINCNT EQ 0130. OR LINCNT EQ 0195. THEN 
(6) 021102 023727 002272 000101 CMP LINCNT, 065. 
(8) 021110 001410 6EQ 244% 
(6) O21112 023727 002272 000202 CMP LINCNT, #130. 
(8) 021120 001404 BEQ 2448 
(6) 021122 023727 002272 000303 CMP LINCNT, 0195. 
(10) 021130 001024 BNE 502458 
(6) 021132 502448: 
2415 021132 LET OUTBUF := #14 ; FORM FEED 


CZLNADO LNOL TEST 
CZLNAD .P11 


(8) 


wu 
wee 


' 
AAA AAAAASAAAAAA 


ard burrtneleaMertne am phe Ruther t e ~“ 


et et PP se es 8 8 


021132 


021402 


10 - APR -84 


012737 


023727 
001405 
005737 
001706 


005737 
001055 
012737 
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READY LINE INTERLOCKS TEST 8 
MOV #14 ,OUTBUF 
CJTPUI @OUTBUF ,@1,58,LUNIT 
ENDIF 
502453: 
UNTIL. LINCNT EQ 6260. OR ERRFLG NE 00 
CMP LINCNT , #260. 
BEQ 502468 
TST ERRFLG 
BEQ 50243% 
502463: 
IF ERRFLG EQ @O THEN 
TST ERRFLG 
50247 
LET OUTBUF ;:= 614 
MOV #14 ,OUTBUF 
OUTPUI @OUTBUF ,01,58,LUNIT 
ERRHRD 8, PAPSWI 
TRAP CSERHRD 
. WORD 8 
. WORD PAPSWI 
. WORD 0 
LET ERRTBL(R2) := ERRTBL(R2) + 1 
INC ERRTBL(R2) 
INL INE < JMP 11002$> 
JMP 110028 
ELSE 
BR 502508 
502478: 
LET ERRFLG := 00 
ERRFLG 
ENDIF 
502508: 
110028: PRINTF @PAPRDY,.LUNIT 
MOV  OPAPRDY, -( SP) 
MOV @2, -CSP) 
MOV SP ,.RO 
TRAP ‘CSPNTF 
ADO 66, SP ; 
LET FLAG := @0 
CLR FLAG 
GMANIL READY ,.FLAG, 100000, YES 
TRAP CSGMAN 
BR 10001 $ 
. WORD FLAG. 
-WORD TSCODE 
. WORD READY 
. WORD 100000 
100018: 


LET R2 :* LUNIT SWIFT 1 
MOV LUNIT ,Re 


ASL Re 
LET M@PCSRCR2) :* 00 
CLR @LPCSR( Re ) 


JMP 23 
sEXPECTED ERROR HANDLER. 


SEQ 0067 


3 OUTPUT THE FORM FEED 


s UNTIL FOUR PAGES PRINTED OR IN 


; FORM FEED 
3 OUTPUT THE FF 


3; RESET THE LP CSR 


(7) 


et OS 


ee, eet, Meee, Pere 
RES BEE CSS NESS MeL eae 


eee ee ee a Oo a 
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021442 


021444 
021444 
021450 


012737 
005037 
042762 
005062 
005062 
005062 
000207 
sett 
005237 


023701 
003117 


013702 
006302 


013737 
005037 


D6 


08158 eRe ABY TENE INPERLOCKS  TESTMs 


sJUST SET EXPECTED ERROR INDICATOR. 


000001 
902332 
120000 
002746 
002546 
002646 


002310 


002310 
002310 


002310 


002310 
002270 


022675 
000001 


002334 


002506 


002074 


’ 
5$: 


LET ERRFLG :* 41 
MOV $1 ERRFL LG 
ae ERRCOD := 


CLR E RREOD 
LET STATUSCR2) :* STATUSCR2) cLR. BY #ERROR!IACTIVE 
BIC @ERROR! ACTIVE ,STATUS(R2) 

‘ee CURCNTCR2) := @0 ; CLEAN UP THE DRIVER PARAMETERS 
CLR CURCNT(R2) 

op CURADD(R2) :* 00 


C CURADD( Re ) 
ee REPCNT(R2) := 60 
ate REPCNT(R2) 


RTS PC ;AND RETURN 
;VERIFY OPERATION OF PAPER TRAY HANDLE INTERLOCK SWITCH. 
4$: INCR LUN 


502523: 
502518: 


IT FROM 00 TO R1 BY 41 
CLR LUNIT 
BR 50251% 
INC LUNIT 
CMP LUNIT,R1 
8GT 50255 


$ 
LET Re :* LUNIT SHIFT 1 
MOV LUNIT,R2 


Re 
LET LSLUN :* LUNIT 
MOV LUNIT LL SLUN 
an FLAG := #0 


»- (SP) 

MOV @1,-(SP) 

IV RO 
TRAP CePNTF 
ADD 04,SP 
PRINTF @HANSW1.LUNIT 
MOV LUNIT, -(SP) 
MOV @HANSW1, -(SP) 
MOV sé, -(SP) 
“Ov —s« SP, RO 
TRAP C#PNTF 
ADO 06, SP 
PRINTF @HANSW2 — 
MOV @HANSH2, -(SP) 
MOV e1, a(sP) 
MOV 
TRAP Coeur 
ADD 04,SP 
GMANIL READY, FLAG, 100000, YES 
TRAP  CSGMAN 
BR 10002 $ 
.WORD FLAG 
“WORD  TSCODE 
. WORD READY 


SEQ 0064 
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SEE SANE S Bie “@ 


Fe ed er a a a a 


021602 
021604 
021604 
021604 
021612 
021614 
021614 
021620 
021624 


021720 
021722 


021722 


100000 
032772 
001431 


012746 
012746 


005262 
013737 
104456 
000011 
003503 
000000 


000654 


005037 
000402 


005237 


023701 
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READY LINE INTERLOCKS TEST 6 
P 100000 
10002$: 
IF @BIT1S SETIN @LPCSR(R2) THEN 
BIT @BIT15,@LPCSR(R2) 
BEQ $ 
PRINTF @HANRDY 
MOV yY,-¢ 
MOV 1,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD @4,SP 
PRINTF @HANRDL.LUNIT 
MOV LUNIT, -(SP) 
MOV @HANRD1, -( SP) 
MOV @2,-(SP) 
MOV : 
TRAP CSPNTF 
ADD 06.SP 
GMANIL READY, FLAG, 100000, YES 
TRAP C$GMAN 
BR 100038 
.WORD FLAG 
.WORD TSCODE 
.WORD READY 
.WORD 100000 
100038: 
ELSE 
50255% 
502548: 
LET ERRTBL(R2) := ERRTBL(R2) + a1 
INC ERRTBL(R2) 
LET L$LUN := LUNIT 
MOV LUNIT,LSLUN 
ERRHRD 9, 
TRAP CSERHRD 
.WORD 9 
e HANSWI 
.WORO 0 | 
ENDIF 
502555: 3 
ENDINC | 
pe BR —So2ses 
S VERIFY OPERATION OF FRONT DOOR INTERLOCK SWITCH. 
INCR LUNIT FROM @O TO R1 BY 1 
R  tCUNIT 
6 §02568 
502578: 
INC LUNIT 
502568 : 
CMP LUNIT,R1 
BGT 0$ 


MOV 


5026 
LET R2 :* we 1 


LUNIT 
R 


ASL 2 
LET FLAG ;= 80 


SEQ 9069 
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READY LINE INTERLOCKS TES? 8 
CLR FLAG 
PRINTF @DOORSW,LUNIT 
MOV LUNIT, -(SP) 
MOV Sw, -(SP) 
MOV SP 


ADD #6, SP 
PRINTF epodsui 
MOV @D00SW1 , -( SP) 

MOV #1, -(SP) 

MOV SP, 

TRAP CSPNIF 

ADO 04 ,SP 

GMANIL READY, FLAG, 100000, YES 
TRAP C$GMAN 


.WORD FLAG 
.WORD TSCODE 
.WORD READY 
. WORD 100000 
100048; 
IF @BIT1S SETIN ee oy ae THEN 
BIT @817T15,@.PCSR(R2) 
BEQ 50261% 
PRINTF @DOORDY,LUNIT 
MOV LUNIT, -C SP) 
MOV @DOORDY, - 
MOV @2,-CSP 
MOV SP, 
TRAP age 
PRINTF @D00RD1 
MOV 1,-(SP> 
MOV #1, -CSP) 
MOV SP RO 
TRAP CoPNIF 
ADD 
Cnn READY, FLAG, 100000, YES 
TRAP  § C$GMAN 
BR 10005% 
-WORD TSCODE 
-WORD READY 
-WORD 100000 
10005$: : 
€LSE o> 
BR 50262 
502618: 
LET ERRTBL(R2) := ERRTBLC(R2) + 1 
INC ERRTBL(R2) 


LET LSLUN :* LUNIT 
MOV LUNTT ,U $LUN 
ERRHRD 10, OOOSWI 
TRAP CSERHRD 
-WORD 10 


SEQ 0070 


oto. LNO1 TEST 
€2t Pil 10-APR -84 


NAD. 






022144 
022146 


022242 


022244 


003556 
000000 


012772 


000664 
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012737 
004737 


104401 


pestas X24 .07-563 sg 
08:5 READY LI 


002552 


003114 


66 
4 INTEALOCKS Tests 
.WORD DOOSWI 
“WORD 0 
NDIF 


LET @PCSR(R2) := #00 
MOV #00, SLPCSR(R2) 
ENDINC 


BR 50257$ 
50260 


$; 
LET CURCNT(R2) :2= 40 
ae 9g Re) 


502628 : 





/#ATO epee INT 
/ENSARETURN PAPER 


/READY LINE INTERLOCK TEST 8/<12> 

/THIS PAGE WILL BE FOLLOWED BY 3 BLANK PAGES/<12> 

/@NGAAFTER PRINTING STOPS - REMOVE ALL PAPER FROM BOTH PAPER TRAYS#N/ 
-SN/ 

/SNSARESTORE PAPER, CLEAR, PLACE LUNIT SD2sA ON LINE.sN/ 


40,12 

/GNSAAF TER PRINTING STOPS - TURN PAPER TRAY HANDLE COUNTER 

/@AHORIZONTAL POSITION UNTIL IT STOPS, ON LUNIT sD2sN/ 
NTERLOCK SWITCH. SN/ 


-N 
TRAY HANDLE TO vg POSITION, @N/ 


/SACLEAR, PLACE LUNIT sD2sA ON LINE 
/SNSAOPEN FRONT 


DOOR ON LUNIT sD2sA To “CHECK / 


/SNSAINTERLOCK SWITCH. SN/ 


/@NGACLOSE FRONT DOOR ON LUNIT SD28A,9N/ 


-LIST BEX 
ENDTST 
1.10017: 


TRAP CseTstT 


/@ACLEAR, PLACE ON LINE. SN/ 


ENOMOD 
.SBTTL ABSOLUTE AND RELATIVE POSITIONING 
ABREL .P11 


; MODULE 
BGNMOO 


HE OBJECT OF THIS TEST IS TO VERIFY THE CORRECT OPERATION OF 


Pring ire Mg a Rattan ABSOLUTE AND 
;BOTH HORIZONTAL AND VERTICAL POSITIONING ESCAPE SEQUENCES. 


sMACHINE HANDL'S THE SEQUENCES PROPERLY THE GRID SHOULD HAVE THE FOL - 


sLOWING CHARAC!: .AISTICS: 


S<Q 0071 


LOCKWISE TOs 


Ho 
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EZLNAD-PLl 10-APR-84 0855 aBeecOTe AND RECRTIVE BSs?7 TONING oS 607s 
2522 , IME GRID'S UPPERMOST LEFT CORNER SHOULD BEGIN TWO INCHES FROM 
5523 THE TOP AND LEFT EOGES OF THE PAPER 
3524 , THE DIMENSIONS OF THE GRID SHOULD BE FOUR INCHES IN HEIGHT 
5525 ; BY SEVEN INCHES IN LENGTH 
3526 EACH BLOCK CONTAINED WITHIN THE GRID SHOULD BE ONE INCH SQUARE. 
3527 ;THE MARGINS WILL BE SET AS FOLLOWS: 
5528 ; TOP = 2 INCHES 
2529 BOTTOM = 6 INCHES 
5530 LEFT = 2 INCHES 
2531 ; RIGHT = 9 INCHES 
3 
3533 ;THE GRID ITSELF WILL BE DRAWN USING THE "X” CHARACTER. ALL “x”S WILL 
2538 1BE INSIDE THE MARGIN BOUNDARIES. 
2536 SOUTSIDE THE MARGIN BOUNDARIES THE TEST WILL ATTEMPT TO PRINT THE “O- 
3537 ‘CHARACTER 1/2 INCH OUTSIDE THE OUTER EDGSS OF THE RECTANGLE. IF THE 
3538 MARGINS ARE “HARD” THEN THE “O” SHOULD SUPERIMPOSE ALL THE “x”S ON 
3539 THE OUTER EDGES OF THE GRID. IF THE MARGINS ARE “SOFT” THEN THE 
2540 ;"O"S WILL BE PRINTED 1/2 INCH OUTSIDE THE OUTER EDGES OF THE GRID. 
2541 ‘THIS IS TRUE FOR TOP, BOTTOM AND LEFT MARGINS ONLY. THE RIGHT MARGIN 
2542 SFUNCTIONS DIFFERENTLY AND, THEREFORE, IS HANDLED DIFFERENTLY. THE 
2543 ;RIGHT MARGIN WILL BE OVERPRINTED SO AS TO BE UNIFORM WITH THE OTHERS. 
2544 ;HOWEVER, IT IS NOT DONE IN THE SAME MANNER. 
ges 
3546 
2547 
ooo. 3 GLOBALS REFERENCED: 
2550 000000 REPT 0 
3551 BEGIN TEST 
3552 , SELECT DECIPOINTS AS SIZE UNIT 
2553 : PRINT TEST ID 
2554 : OPERATOR INSRUCTIONS ON FHINTER 
2555 3 SET TOP, BOTTOM, LEFT AND RIGHT MARGINS 
2556 L NETO #0 00 ;DO FOR EACH ROW OF GRID 
3557 MOVE TO CORRECT VERTICAL POSITION 
2558 PRINT ONE LINE OF THE GRID 
2559 : ENDDO 
3560 MOVE VERTICALLY TO 6 1/2 INCH SPOT 
2561 ' PRINT OF "O"S BELOW BOTTOM MARGIN 
2562 MOVE VERTICALLY TO 11/2 INCH SPOT 
2563 : PRINT ROW OF “O”"S ABOVE TOP MARGIN 
3564 ; RESET DEFAULT PRINTER CONDITIONS 
3565 ; SELECT DECIPOINTS AS SIZE UNIT 
2566 : 00 FORM F 
2567 eo per rest 
2568 END TEST 
2569 “ENOR 
2570 
2571 
3572 
3573 
3574 
3575 
2576 
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SEQ 0073 


ABSOLUTE AND RELATIVE POSITIONING 








BGNTST 9. 
T9:: 
OUTPUT @REINIT,¢2 
QUTPUT @SEL LOEC, 05 ; DECIPOINTS AS SIZE UNIT 
OUTPUT @ABREL, 259. ; TEST IO WITH CRLF 
OUTPUT @INSTRC, 0119. 
OUTPUT @INSTR1. 110. ; DESCRIPTIONS OF GRID 
OUTPUT @TOPBOT.¢12. ; SET TOP AND BOTOM MARGINS 
OUTPUT OLEFRI, 012. ; SET LEFT AND RIGHT MARGINS 
LET R4 := @VERT ; SET UP TABLE OF VERTICAL SEQUENCES 
MOV OVERTBL .R4 
WHILE (R4) NE @0 DO ; DO FOR EACH ENTRY IN TABLE 
502638: 
TST CR4) 
BEQ 50264 
OUTPUT (R4), 07. ; MOVE TO CORRECT VERTICAL POS. 
OUTPUT @GRID, 0101. ; PART 1 OF ONE LINE OF GRID 
JSR PC, QUIET 
OUTPUT @GRID1. 037. ; PART 2 
PC QU 
LET R4 3s o + @2 
ADD @2,R4 
ENDDO 
BR 502638 
502643: 
OUTPUT @VSIXHF , 07 ; MOVE VERTICALLY TO 6 1/2 INCH SPOT 
; PRINT “O”S BELOW BOTTOM MARGIN 
; MOVE VERTICALLY TO 1 172 INCH SPOT 
; PRINT "O“S ABOVE TOP MARGIN 
; FORM FEED 
; DO THE FORM FEED 
; GLOBAL, RESET DEFAULT STATE 
; DECIPOINTS AS SIZE UNIT 
; GUARANTEE THE FORM FEED 
.WORD _L10020-. : 
: OATA TABLES, MESSAGES, SEQUENCES. ETC. 
.NLIST BEX 
VERTBL: . WC VIMREE, VTWO, VSIX, VFOUR, VF 
ABREL: .ASCII < 1OmHORIZONTAL AND VERTICAL ABSOLUTE AND RELATIVE TEST 9/<15><12> 
INSTRC: .ASCII <12>/THE RECTANGULAR GRID WILL BEGIN APPROXIMATELY TwO INCHES FROM THE 1 
“ASCII S FROM THE LEFT EDGES OF THE PAPER/<12> 
INSTR1: -ASCII /THE DIMENSIONS OF THE GRID WILL BE 4 INCHES HIGH/ 
“ASCII I BLOCK WITHIN WILL BE 1 INCH SQUARE. /<12> 
TOPBOT: “BYTE $3.183.61.64, 64,60, 73.64.63, 62,60, 162 ; SET TOP AND BOTTOM MAR 
LEFRI: {BYTE 33,133,61,64,64,60, 73,66, 70,64,60, 163 ; SET LEFT AND RIGHT MAR 
VONEHF: .BYTE  33,133,61.60, 70,60, 144 ; VERTICAL MOVE TO 1 !/2 
VIWO: BYTE 33,133,61,64,64,60, 144 ; VERTICAL MOVE TO 2 INC 
VIMREE: .BYTE 33,133,62.61,66,60, 144 ; VERTICAL MOVE TO 8 INC 
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ABSOLUTE AND RELATIVE POSTTLONING 


VF OUR: BYTE 33,133,62,70,70,60, 144 


VF 
VS 


IvE: .BYTE 535,135,65,66,60,60,144 
Ix: .BYTE 33,1335,64,65,62,60,144 


VSIXHF: .BYTE 33,155,64,66,71,60,144 

HILOSQ@: .BYTE 33,1335,62,61,66,60,140,117,353,133,62,70,70,60,140,117 
BYTE 33.133,63.66,60,60,140.11 "33.1 rs e 3,62,60,1 a 
.BYTE 3,133,65,60,64,60, »117,353,1335,65,67 ,66,60,140,117 

GRID: BYTE 40,53,155,61,60,70,60,140,117,33,133,66,64,70,60,140,130 
-BYTE 335,1335,61,64,64,60,140,55,133,65,60,64,60,141,117 
BYTE .133,66,70,64, ° » | THI 
BYTE »1355,65,60,64 ,60,140,130,53,133,.63,66,60,60,140 
BYTE -133,60,60,60,60, w . eo -635,66,60,60, 140 
BYTE .133,60,67,62.60,1 o ® e 3,65,67,66,60,140,130 
BYTE 33,133,61,64,64,60,140,53,1353,60,60,60,60,141,130 

GRID1: .BYTE 33,133,61,64,64,60,140,55,153,60,635,66,60,141 

. -BYTE 33,133,60,63,66,60,141,1350,53,153,62,67,60,60,1 

-LIST BEX 
ENDTS1 

Li : 
TRAP CsETST 
ENDMOD 


@e @e @e @e @6¢ @e Ge Gt Ge Ge Ge GF Ge Ge Gs Ge 
‘ 


-SBTTL NEWLINE MODE ENABLE -DISABLE TEST 
; MODULE LFNLMD.P11 










THIS TEST IS AN “ALTERED VERSION OF LNMODE.P11 WHICH IS PART OF 
THE TM. LIBRARY. THE ORIGINAL 


SEQUENCES THAT ENABLE AND DISABLE NEWLINE MODE OF OPERATION. 
OUTPUT arte NEWLINE OISABLED SHOULD APPEAR AS: 





AAAAAAAAAA 
ABARAAAARA 
OUTPUT WITH NEWLINE MODE ENABLED SHOULD APPEAR AS: 
AARAAARAAA 
AAAAAAAAAA 
AAAARAAAAA 


SEQ 0074 


; VERTICAL MOVE TO 4 INC 
; VERTICAL MOVE TO 5 INC 
s VERTICAL MOVE TO 6 INC 
; VERTICAL MOVE TO 6 1/e 


; PRINTS “O”"S FO 


HAS BEEN ADDED TO TES! AB 


»140,33,133,60,61.70,60,141 


IK6 


CZLNADO LNO1 TEST DNMAC X24.07-563 10-APR-84 09:07 P 6-59 
EZLNAD.P11 10-APR-84 08:55 NEWLINE MODE ENABLE -DIS PE TEST wee S075 
2679 BEGIN NLMODE 
2680 : SELECT SIZE UNIT AS DECIPOINTS 
2681 : SEND THE TEST NAME TO ALL TERMINALS 
2682 : SKIP 2 LINES 
2683 : SEND ‘NEWLINE MODE BEING DISABLED’ MESSAGE 
2684 : SEND RMANL TO DISABLE NEWLINE MODE 
2685 : REPEAT 3 TIMES 
2686 : : SEND 10 A‘S 
2687 : : SEND A LINEFEED 
2688 :  ENDREPEAT 
2689 : SKIP 2 LINES 
2090 : SEND ‘NEW LINE BEING ENABLED’ MESSAGE 
2691 : SEND SMANL TO ENABLE NEWLINE MODE 
2692 : REPEAT 3 TIMES 
2693 : : SEND 10 A‘S 
2694 2 : oes A LINEFEED 
2695 :  ENDREPEAT 
2696 : SEND RMANL TO DISABLE NEWLINE MODE 
2697 : DO FORM F 
2698 : RESET THE PRINTER 
2699 : SELECT SIZE UNIT AS DECIPOINTS 
2700 END TEST 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 025724 BGNTST 10. 
(3) 025724 T10:: 
2713 
2714 025724 OUTPUT @REINIT, #2 
2715 025766 OUTPUT @SELDEC, 25 3; DECIPOINTS AS SIZE UNIT 
2716 026030 OUTPUT @NLMODE , @42. ; IDENTIFY TEST 
2717 026072 OUTPUT @ACRLF 62, ,02 3; SKIP S 
2718 026134 OUTPUT @DISANL , 040. ; DISABLING NL MESSAGE 
2719 026176 OUTPUT @RMANL, 05 ; TURN T OFF NOW 
2720 026240 LET RS := @OUTBUF 
(4) 026240 012705 003114 MOV JTBUF RS 
2721 026244 “LET CRS)e :B= 0101 ; PUT AN “A” IN BUFFER 
(4) 026244 112725 000101 : ~CRS)> | 
2722 026250 LET CRS): Be 12 ; PuT “LFE’ IN BUFFER 
(4) 026250 112725 000012 MOVB @12,(R5S)- | 
2723 026254 LET (R5)> :B« 0146 : FORM FEED 
(4) 026254 112725 000014 MOVB #14 ,(R5S)-> 
2724 026260 DECR WORK FROM 2 TO @0 BY 41 
(5S) 026260 012737 000002 003110 MOV @2,, WORK 
(7) 026266 000402 eR 50265 $ 
(6) 026270 502665: 
(10) 026270 005337 003110 DEC WORK 
(7) 026274 502653: 


Lo 


CZLNADO LNOL TEST ONMAC X24.07-563 _10-APR- 
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(7) 026274 005737 003110 TST WORK 
(9) 026300 002443 BLT 502678 
2725 026302 OUTPUT @OUTBUF, 1, .010. ; SEND TEN A‘S 
2726 026344 OUTPUT @OUTAUF +1, ¢1 | THEN A LINEFEED 
3727 026406 NDDEC 
(5) 026406 000730 50266$ 
(4) 026410 502673: 
2728 026410 OUTPUT @ACRLF,02,,02 ; SKIP 2 LINES 
3729 026452 OUTPUT @ENABNL, 052. ; ENABLING NL MESSAGE 
2730 026514 OUTPUT @SMANL,@5 ; TURN IT ON NOW 
5731 026556 DECR WORK FROM #2 TO #0 BY o1 
(5) 026556 012737 000002 003110 MOV 02, WORK 
(7) 026564 000402 BR 502708 
(6) 026566 502715: 
(10) 026566 005337 003110 DEC WORK 
(7) 026572 502708: 
(7) 026572 005737 003110 TST WORK 
(9) 026576 002443 BLT 50272$ 
2732 026600 OUTPUT SOUTBUF 01, ,010. ; SEND TEN A’S 
2733 026642 OUTPUT @OUTBUF +1, 01 ; THEN A LINEFEED 
2734 026704 ENODEC 
(5) 026704 000730 502718 
(4) 026706 502723: 
2735 026706 OUTPUT @RMANL, 05 ; TURN IT OFF 
3736 026750 OUTPUT @OUTBUF +2, 01 ; DO FORM FEED 
2737 027012 OUTPUT @REINIT, 02 ; RESET TO DEFAULT CONDITIONS 
2738 027054 OUTPUT @SELDEC, 05 ; DECIPOINTS AS SIZE UNIT 
2739 027116 004737 005306 SR PC, QUIE 
2740 027122 EXIT TST 
(3) O27122 104432 TRAP CSEXIT 
353) 027124 000280 ‘WORD 10021-. 
5742 [NLIST BEX | 
2743 027126 042516 020127 044514 OISANL: .ASCIZ /NEW LINE MODE DISABLED, LINEFEEDS ONLY/<15><12> 
5744 027177 116 053505 046040 r; [ASCIZ /NEW LINE MODE ENABLED, LINEFEED CAUSES RETURN ALSO/<15><12> 
2745 027264 055433 030061 047155 NLMODE: .ASCIZ <33>/[10mNEWLINE MODE ENABLE -DISABLE TEST 107<15><12> 
2746 027337 033 133 O62 RMANL: BYTE 33,133,62,60,154,0 
3747 027345 033 133 062 SMANL: .BYTE 33,133,62,60,150,0 
5748 027354 : 
3749 “LIST BEX 
3750 027354 1ST 
(3) 027354 110021: 
(3) 027354 104401 TRAP —s CSETST 
2751 027356 ENDMOD . 
5752 
3753 
3754 
2755 
3756 
5757 
2758 
3759 
5760 
5761 
5763 -SBTTL POWER UP DEFAULT TEST 
3768 SMODULE. PUD.P11 
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2765 027356 
2766 


2767 
2768 
2769 
2770 
2771 
2772 
e77s 
2774 
2775 
2776 
2777 
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BGNMOD 


FUNCTIONAL DESCRIPTION 


THIS TEST VERIFIES THE SPECIFIED POWER UP DEFAULT 
CONDITIONS OF THE LNO1 ELECTRONIC PRINTER. 

THE TEST IS eh INTO 3 BASIC PARTS 

ONE OF THE BASIC PARTS IS SUBDIVIDED INTO 2 SECTIONS. 
THE BASIC PARTS AND SECTIONS THEREOF ARE AS FOLLOWS: 


PART 1- HORIZONTAL TAB DEFAULT 

PART 2- VERTICAL TAB DEFAULT SECTION 1 
VERTICAL TAB DEFAULT SECTION 2 

PART 3- DEFAULT MARGINS 


PART 1- HORIZONTAL TAB SECTION 

PART 1 TESTS THE HORIZONTAL TAB DEFAULTS BY MEASURING THE DISTANCE .IN CHARACTER 
BETWEEN EACH TAB. THE TEST FIRST DOES 18 TABS AND PRINTS A “T” AT EACH TAB STOP 
THE NEXT LINE PRINTS A SCALE BY WHICH TO MEASURE THE DISTANCE BETWEEN THE “T”s. 
THE SCALE IS A PRINTING OF (HE NUMBERS 1 THRU & REPEATEDLY ACROSS TE PAGE. 

THE “T"S IN THE ROW ABOVE SHOULD LINE UP OVER THE yw Be ng He 16 oe te 


THE FINAL 2 “T” = sy SIDE ING RIGHT MOST 

AFTER SKIPPING TWO LINES, PART 1 CONTINUES ON BY PRINTING PATTE 

WHICH WILL T SE THE TAB Fag ae IN DEFAULT MODE. ANY THING PRIN 

OUTSIDE THE DIAMONDS WILL CONSTITUTE AN ERROR. HING THAT OUT OF THE 
INARY INSIDE THE DIAMONDS WILL ALSO CONSTITUTE AN ERROR. 


PART 2- VERTICAL TAB SECTION 1 

PART 2, SECTION 1 VERIFIES THAT THE DEFAULT Pag lS es TAB IS SET FOR ONE TAB 

TO MOVE THE DISTANCE EQUIVALENT TO THAT OF A LINE FEED. THIS IS ACCOMPLISHED By 
AFTER PRINTING THE SECTION ID ON LINE #1, DOING 65 VERTICAL TABS AND PRINTING 
THE SECTION ID FOR EACH ONE. THE RESULT SHOULD BE a OF THE gp 2 og ID. 


THE 4Y THIS WILL ONLY 
HANDLE A TOTAL OF S32 TAB STOPS IS BECAUSE WHEN YOU EXCEED THE LIMIT OF 32 
THE MACHINE IS SUPPOSED TO TREAT EVERY EXTRA VERTICAL TAB AS THOUGH IT WAS 
A LINE FEED CHARACTER. SO. BECAUSE THE DEFAULT VERTICAL TAB IS EQUAL TO 
A LINE FEED IN DISTANCE. THE RESULT SHOULD BE Thc SAME. THIS IS — 
A GOOD rg TEST THE DISTANCE OF THE DEFAULT TAB AS COMPARED TO T 


NORMAL _ CHARACTER. 

THIS SECTION ALSO VERIFIES THAT WHEN A VERTICAL TAB IS SENT WHEN THE MACHINE 

) Y AT LINE 66 THE MACHINE WILL RESPOND BY BRINGING YOU TO THE TOP MARGIN 
ON THE FOLLOWING PAGE, WHICH IN DEFAULT CONDITION SHOULD BE LINE #1. THIS SETS 
UP THE FOLLOWING SECTION TO BEGIN ON LINE #1. 


VERTICAL TAB SECTION 2 
PART 2, SECTION 2 VERIFIES THE USE OF MULTIPLE VERTICAL TABS. THIS IS ACCOM- 
PLISHED PR DOING 5 






BY ,FIRST, PRINTING THE SECTION IO ON LINE @1 AND, THEN, 
VERTICAL as 3 THEN Baga TION ID AGAIN. IS REPEATED 6 TIMES 
THE — T IS THE SECTI PRINTED ON EVERY STH LINE BEGINNING WITH 





END 
SUCCESSIVE PRINTING OF THE ID WILL BEGIN IN THE COLUMN FOLLOWING THE COLUMN 
IN WHICH THE PREVIOUS ONE ENDED. THIS WILL VERIFY THAT THE USE OF VERTICAL 
TABS DOES NOT CHANGE THE ACTIVE COLUMN.Cin effect it does not perform a carriage 
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10-APR -84 08:5 —— 


000000 


N6 


x24.07-563_10-APR- 07 PAGE 6-62 
POWER UP DEFAULT TEST SEQ 0078 


return automatically). 


- MARGIN SECTION 

THE MARGIN SECTION VERIFIES THAT THE TOP, BOTTOM, LEFT AND RIGHT MARGIN 
DEFAULT SETTINGS ARE AS SPECIFIED. IT ACCOMPLISHES THIS By IDENTIFYING 
LINE #1 AND PRINTING THE CORRECT DISTANCE THIS SHOULD BE FROM THE TOP 
EDGE OF THE PAGE FOR OPERATOR VERIFICATION. THE FOLLOWING LINE( #2) WILL 

CT DISTANCE FROM THE LEFT 
EDGE OF THE PAGE THAT THE FIRST CHARACTER ON EACH OF THE FOLLOWING ~ LINES 
SHOULD BE PRINTED AS WELL AS IDENTIFYING THE CORRECT DISTANCE FROM T 
LEFT EDGE THAT THE LAST CHARACTER OF THE FOLLOWING 63 LINES SHOULD BE. PRINTED. 
THE SECTION CONCLUDES BY IDENTIFYING LINE #66 AND PRINTING THE — 
DISTANCE THAT THE LINE SHOULD BE FROM THE TOP EDGE OF THE PAPER 


D 
oma 
z 
—_ 
> 
ma 
: 
Ps 
9 
2 
- 
m 
z 
—_ 
on] 
" 
Lon] 
m 
i) 
~ 
mr 
: 


GLOBALS REFERENCED 


REINIT, 


.REPT 0 
BEGINROUT INE POWER UP DEFAULT TEST 
RESET THE PRINTER 
SELECT SIZE UNIT AS ~ | lita 
: TOGGLE THE PAPER OFFSE 
: PRINT THE TEST ID 
: “HORIZONTAL TAB DEFAULT SECTION” 


: PRINT SECTION I 
: INCREMENT COUNT FROM #1 TO #18. BY #1 
: DO + aes jel AL TAB 
: PRINT ; 18 HOR. TABS » DA "T” 
: ENDINCREMENT 
: DO A LINE FEED 
: INCR COUNT FROM #1 TO #17. BY #1 ; PRINTS 1-8 17 TIMES AC 
: : : PRINT 1-8 ; MEASURES DEFAULT TAB S 
: ENDINC | 2 

SKIP 2 LINES , 
: INCREMENT FROM ONE TO THREE B) 1 ; REPEAT THREE TIMES 
: : a TOTAL PATTERN : DIAMOND SHAPED PATTERN 
: ENDINCREMENT ) 

DO FORM FEED | ; END OF HORIZONTAL SECT 
: “VERTICAL DEFAULT TAB SECTION” 
: “FIRST PAGE OF VERTICAL SECTION” 
: PRINT SECTION 1 ID ; PRINT ID ON LINE i 
: INCR COUNT FROM 61 TO 965. BY #1 ; PRINT ID ON LINES 2 TH 
: eee PO VERTICAL TAB 
: : _. PRINT SECTION ID 
: ENDINC 
: DO VERTICAL TAB ; SHOULD BRING YOU TO TO 


“SECOND PAGE OF VERTICAL SECTION” 


: PRINT SECTION 2 ID ; PRINT SECTION ID ON LI 
: INCR COUNT FROM @1 TO #6. BY 41 ; PRINT ID ON EVERY STH 
: : OUTPUT S VERTICAL TABS ; FROM LINE 6 TO LINE 31 
: : PRINT SECTION ID ; TESTS MULTIPLE VER. TA 
: ENDINC 

: 00 FORM FEED 

: “MARGIN SECTION” 

: PRINT SECTION ID AND TOP EDGE MESSAGE( TEM) ; IDENTIFIES FIRST LINE 


CZLNA 


SS 


a ee ae 


TEST 
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i12737 
112737 
112737 
112737 
112737 
112737 
112737 
112737 


012737 
000402 


005237 


023727 
003043 
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003114 
003115 
003116 
003117 
003120 
003121 
003122 
003123 


002276 


000022 


10 - APR -84 
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POWER UP DEFAULT TEST 


502748: 
5027538; 


PRINT LEFT RIGHT MESSAGE(LFM) 
INCR COUNT FROM 61 TO 063. BY 61 


: PRINT a ee LINE OF “Mm” 
: DO LINE FEED 
ENDINCREMENT 


MEN 
PRINT BOTTOM EOGE MESSAGE( BEM) 
DO FORM FEED 


ENDROUT INE 
-ENOR 

BGNTST 11. 
Tillis: 


OUTPUT @REINIT, ¢2 


MOVE #124, OUTBUF +7 


SEQ 0079 


DEFINES LEFT AND RIGHT 
REPEAT FOLLOWING 63. T 
PRINT 132 "Ms 


IDENTIFY LINE 66 AS BO 


sRESET PRINTER TO DEF AUL 


s DECIPOINTS AS SIZE UNI 
s; TOGGLE THE OFFSET 


sPRINT TEST ID 
sHORIZONTAL TAB 


sLINE FEED 


“HORIZONTAL TAB DEFAULT SECTION” 


OUTPUT @HORDEF , 032. 
INCR COUNT FROM @1 TO 018. BY o1 
MOV _ @1, COUNT 
502738 
INC COUNT 


CMP COUNT 018. 
50275% 


6GT 
OUTPUT @OUTBUF , 01 
OUTPUT SOUTBUF +7 
ENDINC 


sVERTICAL TAB 

sF ORMFEED 
;CARRIAGE RETURN 
3"M” CHARACTER 
3“M”" CHARACTER 
sot 


700 18 HOR TABS AND PRIN 


:00 HOR TAS 
sPRINT A? 


at 
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(5) 030040 00072. BR 502748 
(4) 030042 5027538: 
2917 030042 OUTPUT SOUTBUF +1, 41 300 A LINE FEED 
2918 030104 INCR COUNT FROM @1 TO 017. BY @1 sPRINT 1-8 17 TIMES ACRO 
(5) 030104 012737 OvO0OO0O1 002276 MOV @1,COUNT 
(7) O301L12 000402 BR 502768 
(6) 030114 502778: 
(10) 030114 005237 002276 INC COUNT 
(7) 030120 502763: 
(7) 030120 023727 002276 000021 CMP COUNT ,@17. 
(9) 030126 003022 8GT 50300% 
2919 030130 OUTPUT @SCALE, 8. 
2920 030172 END INC 
(5) 030172 000750 BR 502778 
(4) 030174 505008: 
2321 030174 OUTPUT SOUTBUF +1,01,,05 300 A LINE FEED AND THEN 
2922 000001 SBRIMP =1 
2923 030236 INCR LOOP FROM 61 TO 63 BY O1 sREPEAT PATTERNS 1 AND 2 
(5) 030236 012737 000001 033350 MOV @1,L00P 
(7) 030244 000402 BR 5035028 
(6) 030246 503018: 
(8) 030246 005237 ¢33350 INC LOOP 
(6) 030252 503028: 
€7) 030252 023727 033350 000003 CMP LOOP ,@3 
(9) 030260 003402 BLE 5035038 
(7) 030262 000137 031372 JMP 50304 $ 
(6) 030266 503038: 
2924 030266 LET WORK1 := 00 sUSED DURING PATTERN GEN 
(4) 030266 005037 003112 CLR WORK 1 
2925 030272 DECR WORK FROM 08. 10 #1 BY @1 
(5) 030272 012737 000010 003110 MOV 08. , WORK 
€7) 030300 000402 50306? 
(6) 030302 503058: 
(8) 030302 005337 003110 C WORK 
(6) 030306 503068: 
(7) 030306 023727 003110 000001 CMP WORK , @1 
(9) 036314 002002 BGE 503078 
(7) 030316 000137 030634 JMP 503108 
(6) 030322 503078: : 
2926 030322 OUTPUT @OUTBUF , 01, , WORK :00 CORRECT NUMBER OF TA 
2327 030364 QUTPUT #eOUTBUF +7, @1 sPRINT A "T” 
2928 030426 , 3 INCR COUNT FROM @1 TO WORKI BY #1 
(S) 030426 012737 000001 002276 MOV @1.COUNT 
€7) 030434 000402 : 50312 
(6) 030436 503118: 
(8) 030436 005237 002276 7 NC COUNT 
(6) 030442 503123: ee 
(7) 030442 023737 002276 003112 CMP COUNT , WORK 1 
(9) 030450 003402 BLE 50313% 
€7) 030452 000137 030564 50314% 
(6) 030456 5031358; 
2929 030456 OUTPUT @eOUTBUF .@1,,02 2:00 TWO HOR. TABS 
2930 030520 OUTPUT @eQUTBUF +7, 01 ;PRINT A “T* 
2931 030562 NC 
(4) 030562 000725 BR 50311% 
(4) 030564 503143: 


: 


D/ 


StNaboe yy! T3 apR-sa BBi'65 M8 OT OS bP AEB Ber ab? to fe PASE + 


eT Yo eS 
ANDINA DMA VVWWUWAWOANMDOO-s 
we ee er vr OD Baebes urease 


: 


031372 
031372 


005237 


000623 


012737 


0127357 
000402 


005237 
023727 


003402 
c00137 


012737 
000402 


005237 
023737 


023727 
001402 
0001357 


000137 


003112 


002276 
002276 
031134 


003112 


033350 
0315366 


030246 


003112 
003110 


000007 


002276 


003112 


000003 


503108: 


503158: 
503168: 


503178: 


503218: 
503228: 


503238: 


503248: 


503208: 


INC 


WORK 1 


ENODEC 
50305% 


LET WORK1 :+ 06 
WORK 1 


WORK 1 
ENO INC 
50315$% 


OUTPUT @OUTBUF ,@1,,42 
OUTPUT @OUTBUF -7,¢1 


OUTPUT @OUTBUF -1,¢1 
LET WORKL := WORKI 


oe Ee ®3 THEN 


LOOP 


503258 


ENOTF 


50501$% 


OUTPUT SOUTBUF ,01,,08. 
OUTPUT @OUTBUF +7, 01 
OUTPUT @OUTBUF +1, 01 


OUTPUT SOUTBUF +5, 01 


06, 
INCR WORK FROM @2 TO #7. BY @i1 
WORK 


LET WORK1 ;=* WORKI1 + #1 
OUTPUT @OUTBUF +1,01 


OUTPUT @OUTBUF . 01, ,WORK 
OUTPUT @CJTBUF +7, 01 
INCR COUNT FROM 01 TO WORK1 BY o1 


1 


SEQ 0081 


300 LINE FEED 


sUSED DURING PATTERN GEN 
sPATTERN GENERATION LOOP 


300 CORRECT NUMBER OF HO 
sPRINT FIRST “T” 


:D0 TWO HOR. TABS 
sPRINT A “T” 


;00 A LINE FEED 
sREGULATES PATTERN GENER 


sFIRST PATTERN COMPLETE 


3:00 8 TABS 
sPRINT LAST “T” IN PATTE 
sLINE FEED 


;D0 FORM FEED 
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BF QQ OOOO Ne 
OnNOnNAOO ~y 
a a a eee 


BLL EEO LOLOL 
OnDOnNOOO~aUI 
~~ oS 0 oe Oo” 8 Oe Oe 8 


2968 


012737 
000402 


005237 
023727 


000725 


012737 
000402 


005237 
023727 


000725 


012737 
000402 


005237 
023727 


000001 


002276 
002276 
031634 


000001 


002276 
002276 
032076 


000001 


002276 
002276 
032406 


es Xe4 07-565, 
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002276 


000101 


002276 


000015 


002276 


000077 


1 Meth 


POWER UP 


FAUL 


OUTPUT @VERDEF ,@31. 
INCR COUNT FROM @1 TO 065. BY 41 


09407, PAGE 6-66 


c¢ 


SEQ 0062 


"VERTICAL DEFAULT TAB SECTION” (FIRST PAGE) 


sVERTICAL SECTION 1 ID 
sPRINT SECTION ID ON LIN 


MOV #1 ,COUNT 
BR 503278 
50326$ 
INC COUNT 
50327% 
CMP COUNT e 465 e. 
BLE 503308 
JMP 50331% 
503308: 
OUTPUT @OUTBUF +2, 01 300 VERTICAL TAB 
OUTPUT OVERDEF , 931. sPRINT SECTION ID 
ENDINC 
BR 503268 
50331$ 
OUTPUT @OUTBUF +2, 41 300 VERTICAL TO TOP OF N 
: “VERTICAL DEFAULT TAB SECTION” (SECOND PAGE) 
OUTPUT @eVERDE2, 69 ; SECTION 2 ID 
INCR COUNT FROM el TO #13. BY 1 ; PRINT ID ON EVERY STH 
MOV @1,COUNT 
50353353 
50335238: 
INC COUNT 
503338: 
CMP COUNT ,.@13. 
BLE 50334% 
JMP 503353 
503354$%: 
OUTPUT @OUTBUF +2.901,,95. ; DO S VERTICAL TABS 
OUTPUT @VERDE2, @9. ; PRINT SECTION 2 ID 
ENDINC 
BR 503328 
503358: Oa 
OUTPUT @OUTBUF +3, 01 ; DO FORM FEED AND END S 
2 “MARGIN SECTION” 
OUTPUT @MARDEF ,. #102. ; SECTION ID PLUS TOP ED 
OUTPUT OLFM,@113. ; IDENTIFIES LEFT AND RI 
INCR — FROM ©1 TO #63. BY 41 ; REPEAT THE FOLLOWING 6 
— MOV COUNT 
508878 
5035568: | 
INC COUNT 
505378: 
CMP COUNT, 063. 
BLE 503408 
503418 
50340$: 


PRINT FULL LINE OF “M™ 


OUTPUT SOUTBUF +S, 02, , 066. 
DO LINE FEED 


OUTPUT @OUTBUF «1,41 
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032516 


033352 


033254 


033354 
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004737 
000723 


004737 


104432 
000632 
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005306 
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mi 
9 ie 
0 p07, Ace 6-67 


JSR PC, QUIET 


SEQ 0083 


ENDINC 
BR 50336$ 
503418: 
OUTPUT @BEM, #79. ; IDENTIFIES LINE 66 AS 
OUTPUT @OUTBUF +3, 01 ; DO FORM AND END TEST 
JSR PC, QUIE 
EXIT TS 
TR CSEXIT 
. L10022-. 
: LOCAL VARIABLES, MESSAGES, TABLES 
NLIST BEX 
: .ASCIZ <33>/({10mPOWER UP DEFAULT TEST 11/<12><12> 
HORDEF: .ASCII /HORIZONTAL TAB DEFAULT SECTION/<12><12> 332 CHAR 
VERDEF: .ASCII /VERTICAL DEFAULT TAB SECTION 1/<15> 332 CHAR 
VERDE2: .ASCII /SECTION 2/ ; 9 CHAR 
MARDEF: .ASCII /DEFAULT MARGIN SECTION / 
TEM: .ASCIL /LINE @1___THIS LINE SHOULD BE APPROXIMATELY .4 INCH FROM TOP EDGE OF PA 
LFM: ASCII /THE FOLLOWING 63 LINES SHOULD BEGIN APPROXIMATELY .66 INCH FROM THE LEF 
BEM: ASCII /LINE 966___THIS LINE SHOULD BE APPROXIMATELY 8.10 INCHES FROM TOP EDGE 
SCALE: .ASCII /12345678/ ;PROVIDE 
EVEN 
.LIST BEX 
LOOP; . WORD 0 
ENDTST 
L1002e2: 
RAP CSETST 


ENDMOD 
.SBTTL TABS TEST 
;MODULE TABS.P11 
BGNMOD . 3 
FUNCTIONAL DESCRIPTION 
THE TABS TEST IS A COMPREHENSIVE TEST OF ALL HORIZONTAL AND VERTICAL 
| CLEARING OF TABS AS WELL 


? 
? 





BE CLE 
ASSURES THAT A TOTAL OF TINGS CAN 
BE USED AND THAT IF ANY ARE SET OVER AND ABOVE LIMIT THAT THE HIGHEST 
ORDER SETTING WILL BE ELIMINATED IN FAVOR OF THE LOWER SETTING. 


THE TEST ACCOMPLISHES THESE RESULTS BY DRAWING A RECTANGLE 6 1/72 INCHES 


ee ee GG 8 @e Gc G6 Ge GF Ge SS GS Ge 
o 
&2 
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TEST 


IN HEIGHT AND 9 INCHES WIDE, WITH AN ASTERISK IN THE CENTER OF THE RECTANGLE 
WHICH WILL ALSO BE THE CENTER OF THE P 
THE RECTANGLE WILL BEGIN 1 INCH FROM THE TOP EDGE OF THE PAPER AND 1 INCH 
FROM THE LEFT EDGE OF THE HE PAPER. IT WILL END 1 INCH FROM THE BOTTOM EDGE 
OF THE PAPER (7 1/72 INCHES FROM TOP EDGE OF PAPER) AND 1 INCH FROM THE RIGHT 
EDGE OF THE PAPER (10 INCHES FROM THE LEFT EDGE OF PAPER ). 
THE EDGES OF THE RECTANGLE WILL BE IDENTIFIED BY ASTERISKS BEING PRINTED AT 
FIXED INTERVALS. THE INTERVALS WILL BE 1/2 INCH FOR BOTH HORIZONTAL AND 
VERTICAL BOUNDARIES. THE ONL’ THING APPEARING INSIDE THE RECTANGLE WILL BE 
THE ASTERISK PRINTED IN THE CENTER. THE CENTER ASTERISK SHOULD BE LOCATED 
INCHES FROM THE TOP EDGE OF THE PAPER T 


1 OF THE 
RECTANGLE). THIS WILL PLACE THE CENTER OF oa ASTERISK AT THE CENTER OF THE 
PAPER AS WELL AS THE CENTER OF THE RECTANGLE 


SEQ 0084 


H/ 
1 NMAC X24.07-563, 10-APR-84 09:07 PAGE 6-69 SEQ 0085 
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ANY OTHER MARKINGS ON THE PAGE EXCEPT THE TEST ID WHICH WILL BE PRINTED 
ABOVE THE RECTANGLE WILL CONSTITUTE AN ERROR. 


THE FOLLOWING {1S A NON SCALE REPRESENTATION OF THE RECTANGLE’S APPEARANCE. 
 *# Ser $e” Ree See Ee a Be OE Sa ee a ee 
+ * 


* ke 


§ 
vi 
se 6 Ge @ @: Ge @2 Ge Se Ge Ge Ge Ge oe Ge Gt Ge Ge GF Ge Ge GF Ge Ge GF Ge Gt GS GS Ge Ge Ge Gt Ge 
- 
a 


3093 000000 -REPT O 


3095 : GLOBALS REFERENCED 
3096 s REINIT, . 


3098 BEGIN ROUTINE 
PRINT TEST ID 


: TO TEST SETTING TABS OUTSIDE MARGINS 


WwW 
ee 
© 
we 
a | 
ee 
~—m 
» 
P 
fr 
~q 
a 
wn 


SET MARGINS 
SET 16 VERTICAL TAB STOPS 
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034046 
054110 


ST 
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112737 
112737 
112737 
112737 
112737 
112737 
112737 


pee X24 .07-565 wa 


0031324 
003115 
003116 
003117 
003120 
003121 
003122 


-APR - 84 
TEST 


“OVE 
LET OUTBUF +1 :B= 613 





L/ 


09:07 PAGE 6-70 
SET 16 MORE hE ge Ol STOPS 


16 MORE HORIZON 
SET EXTRA HORIZONTAL TAB STOP 
T MARGI K TO DEFAULT SETTINGS 
TANGLE 


TABS 
PRINT TOP SECTION OF RECTANGLE 
PRINT CENTER LINE 

PRINT BOTTOM SECTION OF RECTANGLE 


SET HORIZONTAL 
PRINT BOTTOM LINE OF RECTANGLE 
SEND RESET SEQUENCE 


BGNTST le. 


Tl2:: 
LET OUTBUF :B= #15 


#13, ouTeUF 


LET OUTBUF +2 :B= #14 

LET OUTBUF +3 :B* @i1 

LET OUTBUF +4 :B @1 

“Ove 

LET OUTBUF «5 

LET OUTBUF +6 | 
_ MOVE 






@XxXVER, 07 


SEQ 0086 
CHECKS ABILITY TO SET INDEPENDENTL 1 
CHECKS FOR ELIMINATION OF HIGHEST ORDE 
CHECKS ABILITY TO SET INDEPENDENTLY 
CHECKS FOR ELIMINATION OF HIGHEST ORDE 
ALLOWS YOU TO USE ALL TAB STOPS 
CHECKS ABILITY TO CLEAR HORIZONTAL TAB 
3 STOPS ONLY 
STOP AT CENTER LINE 
EXCEPT BOTTOM LINE 
SET TABS FOR BOTTOM LINE (SAME AS TOP 


RECTANGLE COMPLETE 
RETURN TO DEFAULT SETTINGS 


; VERTICAL TAB CODE 

; FORM FEED CODE 

; CODE FOR HORIZONTAL TAB 

; CODE FOR ASTERISK 

; CARRIAGE RETURN 

DECIPOINTS 

TEST 10 

CLEAR ALL VERTICAL TABS 

CLEAR ALL HORIZONTAL TABS 

SET MARGINS TO TEST LNOL] ABILT 
SET FIRST 16 VERTICAL TAB STOP 


SET SECOND 16 VERTICAL TAB STC 
SET EXTRA VERTICAL STOP 


CZLNADO LNO1 TEST 
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LNAD.P11 


DRA AAAOE 
AONDONDADOONA 


| a ae 1 1 ae ee | 
SMW NOOOA ~wYUI 
we ee ee ee Oe 8 


(6) 


035266 
035330 


012737 
000402 


005237 
023727 


000746 
012737 
000402 


005237 
023727 


012737 
000402 


005237 
023727 


000725 


J/ 
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002276 


000015 


002276 


002276 


OUTPUT @HORTB1, 62. 
OUTPUT @HORTB2, 0864. 
XHOR , 07 


4,02 
INCR COUNT FROM @1 TO 013. BY 1 
MOV COUNT 


50345$ 
503428: 
INC COUNT 
503438: 
CMP COUNT, #13. 
BLE 503443 
JMP 503458 
503443: 
OUTPUT #OUTBUF +3,65 
ENDINC 
503423 
503453: 
INCR COUNT FROM @1 TO #5 BY @1 
MOV @1,COUNT 
50 
503463: 
INC COUNT 
503478: 
CMP COUNT , #5 
BLE 503508 
JMP 5035138 
503508: 
OUTPUT @OUTBUF +4, 02 
ENDINC 
50346$ 
503518: 
OUTPUT * eouTBUF *6, " 
OUTPUT @CLRHOR, 
OUTPUT @STOPSS, 916. 
INCR COUNT FROM e1 TO 06 BY e1 
MOV 1, COUNT 
: sossss 
503523: | 
: INC COUNT 
503533: ; . 
BLE 50354% 
IMP 5035538 
503546: 


OUTPUT #OUTBUF , 02 
OUTPUT @TOPSEC, 06 


ENDINCR 

503523 
503558: 
OUTPUT #OUTBUF , o1 


OUTPUT @MIDSEC, 04 


SEQ 0087 


SET FIRST 16 HORIZONTAL TAB ST 
SET SECOND 16 HORIZONTAL TAB S 
SET EXTRA HORIZONTAL STOP 

SET DEFAULT TOP BOTTOM MARGINS 
. LEFT RIGHT 

MOVE VERTICALLY TO TOP LINE (0 
CARRIAGE RETURN 

DO HORIZONTAL TAB AND PRINT AS 
PRINT TOP LINE OF ASTERISKS 


TWO HOR TABS AND AN ASTERISK 


PRINT REST OF TOP LINE OF ASTE 


ONE HOR TAB AND AN ASTERISK 


DO CARRIAGE RETURN 

CLEAR HORIZONTAL TABS 

SET THREE HORIZONTAL TAB STOPS 
PRINT TOP SECTION OF RECTANGLE 


DO TWO VERTICAL TABS 
OO THREE TABS AND PRINT 2 ASTE 


MOVE VERTICALLY TO CENTER LINE 
DO TwO TABS AND i ASTERTIS*« (CE 
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CZL 
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ARARAAAAA 
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wr 


3190 


NAD .P11 


035372 
035434 


TEST 
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012737 
000402 


005237 
023727 


000725 


012737 
000402 


005237 
023727 


000746 


012737 
000402 
005237 
023727 
003402 
000137 


000746 


004737 


0 


000001 


002276 
2276 
035634 


005306 


oa Ge X24.07-563 


002276 


000005 


002276 


000015 


002276 


I< / 


tabs fee -84 09:07 PAGE 6-72 
TEST 


OUTPUT @OUTBUF , 1 
OUTPUT @BOTSEC, 06 


INCR COUNT FROM #1 TO #5 BY 41 
COUNT 


MOV #1, 

BR 50357$% 
503568: 

INC COUNT 
503578: 

CMP COUNT, #5 

BLE 50360$ 

JMP 503618 
503560$ 

OUTPUT #OUTBUF , 22 

OUTPUT @BOTSEC, 06 
ENDINC 

BR 50356$ 
5036 


1$: 
OUTPUT @OUTBUF ,.41,.¢7 
OUTPUT @#HORTS1, 062. 
OUTPUT @HORTB2, 084. 
OUTPUT @XHOR, @7 
OUTPUT @OUTBUF +4 


@2 
INCR vin FROM @1 TO og BY #1 


Ee 

BR 50363$ 
503623: 

INC COUNT 
503638: 

CMP COUNT ,@13. 

BLE 50364 $ 

JMP 50365$ 
50364: 

OUTPUT SOUTBUF +3, 03 
ENDINC 

503628 


303653: 
INCR COUNT FROM @1 TO @5 BY 41 
MOV COUNT 


50366$ : | 

INC COUNT 
50367$: 7 

CMP COUNT , eS 

BLE 50370$ 

JMP 50371$ 
503703: : : 

OUTPUT SOUTBUF +4,¢2 
ENOINC 

50366$ 

50371: 


OUTPUT #OUTBUF +6,¢1 
OUTPUT ODECFIN, 05 


JSR PC QUIET 


SEQ 0088 


; MOVE VERTICALLY TO NEXT PRINTS 
; FIRST LINE OF BOTTOM SECTION 
; PRINT REST OF BOTTOM SECTION ¢ 


; DO TWO VERTICAL TABS 
; THREE TABS, TWO ASTERISKS AND 


VE VERTICALLY TO BOTTOM LINE 
T FIRST 16 HORIZONTAL TAB ST 
T SECOND 16 HORIZONTAL TAB S 


mmo 


ZON 
s PRINT BOTTOM LINE OF ASTERISKS 


; TWO HOR TABS AND AN ASTERISK 


; PRINT REST OF BOTTOM LINE OF A 


; ONE HOR TAB AND AN ASTERISK 


; DO CARRIAGE RETURN 
; TOGGLE THE OFFSET 
; FORM FEED 
3; RESET ' CONDITIONS 
; DECIPOIN TS 
; GUARANTEE THE FORM FEED 


Lf 


age ERO LNOL TEST DONMAC X26 07-365, 10-e 09:07 PAGE 6-73 SEQ 0089 


CZLNAD .P11 10-APR -84 08:55 S T 
3198 
3199 
3200 
3201 036554 EXIT TST 
(3) 036554 104432 TRAP CSExIT 
mit, 036556 000700 . WORD L10023-. 
eons : LOCAL VARIABLES, MESSAGES AND DATA TABLES 
3205 -NLIST BEX 
3206 036560 006412 055433 030061 TABTST: .ASCII <12><15><335>/[{10mTABS TEST 12/<15> 
3207 036604 033 133 064 CLRVER: .BYTE 33,13535,64,147 
3208 036610 033 133 063 CLRHOR: .BYTE 33,153,63,147 
3209 036614 033 133 073 TBMARI: .BYTE 33,133,73,63,66,60,60,162 ; SET BO 
3210 036624 033 1335 063 LRMARI: .BYTE 33,133.63 .66,60,60, 73,64,63,62,60,163 
3211 036640 033 133 067 VERTB1: .BYTE 33,1353,.67.62,60,73.71,60,60,73,61,60, 70,60, 73,61,62,66,60, 73 
3212 036664 061 064 064 .BYTE 61,64,64,60,73,61,66 62,60, 3,61,70,60,60, 73, 2. 1,70,60,166 
3213 036710 033 133 062 -BYTE 33,153.62.6 66,60, 73,62,6 -64,60,73,62,65,62,60,73,62,67,60,60 
3214 036735 073 062 070 -BYTE 73,62,70,70,60,73,635,60,66,60, 73,63,62,64,60,73,63,64,62,60, 166 
3215 036762 033 133 063 VERTB2: .BYTE 533,1535.65,66,60,60,75,65.67,70,60,73,63,71,66,60,73,64,61.,.64,60, 73 
3216 037010 064 063 062 BYTE 64 .63,62,.60, 3,64, 5 60,60, 73.64,66, 70,60, 73.64, 0,66,60,166 
3217 037034 033 133 065 BYTE 33,1353,65,60,64,60,735,.65,61.65.60, 73,65,62,60,60, 73.65,62.65,60, 73 
3218 037062 065 063 060 -BYTE 65,63,60,60,75,65.63.65,60,73,65,64,60,60, 73.65.67 .66,60, 166 
3219 037106 033 133 065 XVER: -BYTE 33.133,65,62,62,65,166 
3220 037115 033 133 067 HWORTB1: .BYTE 33,135,.67,62,.60,73,71.60,60, 73,61,60, 70.60, 73.61,62,66.6C, 73 
3221 037141 061 064 064 BYTE 61, 64 .,60,73,61,.66.,.62.60, 73.61, 70.60.60, 73.61.71.70,.60,165 
3222 037165 033 133 062 -BYTE 33,133,62,61,66,60, 7 -62.65,64,60,73,62,65,62.60, 73.62,67,60,60 
3223 037212 O73 062 070 -BYTE 73,.62.70,70,60, 73,63,60,66,60, 73.63.62.,64.60,73,63.,64,62,60,165 
3224 037237 033 133 063 HORTB2: .BYTE 33.1353.635,66,60,60,75,63.67,70,60, 73.63, 71.66.60, 73.64,61.,64,60, 73 
3225 037265 064 0635 BYTE 64,63,62.60,73,64,65,60,60,73,64,66. 70,60. 73,64, 70.66.60.165 
3226 037311 033 133 065 BYTE 33.133,65.,60,64,60,73,65,62.62.60, 735.65.67,66.60, 73,.66.61.62.60, 73 
3227 037337 066 070 -BYTE 66,64, 70,60, 73.66, 70,.64,60, 73.67 .62.60.60, 73.67.63, 70,.60.165 
3228 037363 033 133 065 : .BYTE 33,133,65,64,60,60.1 5 
3229 037372 033 133 O73 OEFMRI: .BYTE 33,133, 73.65, 70,63,62,162 ; DEF AUL 
3230 037402 033 133 064 : .BYTE  33,153,64,67,65,73,67,64,64,65,163 
3231 037415 033 133 067 STOPSS: .BYTE 33,155,67,62,60,73,635,71,66,60, 73.67,62,60,60,165 
3232 037435 O11 0S2 011 SEC: .BYTE 11.52,11,11,.52.12 ; LINE USED FOR TOP SECT 
3233 037443 011 011 OS2 MIDSEC: .BYTE 11.11,52.12 
3234 037447 O11 052 011 SBOTSEC: .BYTE 11,52,11,11,.52,12 ; LINE USED FOR BOTTOM S 
3235 037456 .EVEN 
3236 -LIST BEX —_. 
3237 037456 ENDTST 
(3) 037456 L10023: ee 
mt}, 037456 104401 TRAP CSETST 
3239 037460 ENOMOD 2 
3240 -SBTTL MARGINS TEST 
3241 sMODULE TSTMAR.P11 
3242 
3243 037460 BGNMOD 
3244 
3245 see 
3246 : 
3247 FUNCTIONAL DESCRIPTION 


THE MARGINS TEST IS DESIGNED TO TEST ALL STATED FUNCTIONS OF BOTH TOP AND 


CZLNADO LNO1 TEST DNMA 


CZLNAD.P11 


10-APR-84 08:5 


€ X24.07-565 


M/ 


MAARING Teer 09:07 PAGE 6-74 


BOTTOM MARGIN ESCAPE SEQUENCES AND LEFT AND RIGHT MARGIN SEQUENCES. IT 
_ VERIFY oo ABILITY TO SET MARGINS TO THE DESIRED PARAMETERS AND ALSO 


VERIFY THAT THE PRINTER WILL 


BY OPERATING WITHIN THE MARGINS 


RESPOND 
SPECIE IED EXCEPT UNDER SPECIFIED CIRCUMSTANCES, SUCH AS WHEN USING THE ORAL 
THE FUNCTIONS aa aa IN THE LNO1 FUNCTIONAL SPECIFICATION ARE AS FOLLOWS: 


TOP AND BOTTOM MARGINS 


A: SET BOTH TOP AND BOTTOM MARGINS 


8: SET TOP AND DO NOT CHANGE BOTTOM 


C: SET BOTTOM AND DO NOT 


TOP 
D: BOTH PARAMETERS LEFT OUT CAUSES NO CHANGE IN ge ge a 
CHANGE IN 


E: BOTH PARAMETERS EQUAL TO ZERO CAUSES 


2: SET LEFT AND RIGHT 
A: SET 


S NO 
F; REPOSITIONING ACTIVE LINE WHEN CURRENT ACTIVE LINE. Ts 
ESCAPE SEQUENCES IGNORED IF PARAMETERS DO NOT CONFORM 


MARGINS 
BOTH LEFT AND RIGHT MARGINS 
NOT CHANGE RIGHT 


G: ESCAPE SEQUENCES IGNORED IF PARAMETERS DC NOT CONFORM 


3: SET PHYSICAL LINES PER P 


+ 


AGE 
A: SETTING PHYSICAL LINES PER PAGE CHANGES TOP MARGIN TO 


8: SETTING PHYSICAL LINES PER PAGE CHANGES BOTTOM MARGIN 


3 GLOBALS REFERENCED: 
3 REINIT.COUNT 


“STEP BY STEP BREAKDOWN OF EACH SECTION OF THE TEST” 
BEGIN ROUTINE 
: LEFT RIGHT MARGIN SECTION 
SELECT SIZE UNIT AS DECIPOINTS 
TOGGLE PAPER OFFSET 
PRINT TEST ID 
SKIP A LINE 
: PRINT REFERENCE LINE OF mes 
NE FEED 


REPEAT 
LET R3 EQUAL ATBL 
LET R4 EQUAL APTBL 


: DO ALT 

: REPEAT 7 Say 

: : SET LRMARGINS AT “A” AND “B" 
: : OUTPUT 100 ASTERISKS 

: : DO A LINE FEED 

: : 1 TO “A“ AND TO "B” 


FROM ONE INCH TO TENTH 
"A° STARTS AT “1” CINC 
ONLY 13 SHOULD BE PRIN 
MOVES MARGINS ONE INCH 


1ST TABLE OF SEQUENCES 
TABLE OF BYTE COUNTS F 


N7 


CZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 6-75 SEQ 0091 

CZLNAD.P11 10-APR-84 08:55 MARGINS TEST 
3306 : WHILE CR3) NE DO ; DO FOR ALL ENTRIES IN 
3307 : OUTPU T oR 3)». CR4)s ; OUTPUT THE ENTRY 
3308 : ENDDO 
3309 : LET R3 EQUAL BTBL ; 2ND TABLE OF SEQS AND 
3310 : LET R4 os ta BPTBL 3 BYTE C 
3311 : WHILE a SF TO #0 DO ; DO FOR ALL ENTRIES 
3312 : PUT (R3)+,CR4)+ ; OUTPUT ENTRY 
3313 : ENDDO 
3314 : SET LEFT AND RIGHT MARGIN TO 1 AND 10 INCHES RESPECTIVELY 
3315 : DO A LINE FEED 
3316 : PRINT a. OF ASTERISKS 
3317 : DO A LINE FEED 
3318 : LET R3 EQUAL IGTBL ; IGNORED SEQUE 
331% : ET R4&4 EQUAL IGTBLP ; BYTE COUNTS 
3320 : WHILE CR3) NE @0 DO ; DO FOR EACH ENTRY 
3321 : OUTPUT (R3)+,CR4)>+ ; OUTPUT THE ENTRY 
3322 : : DO CARRIAGE TURN 
3323 : : PRINT LINE OF ASTERISKS 
3324 : : DO A LINE FEED 
3325 : ENDDO 
— : DO A LINE FEED 
aoae : TOP BOTTOM MARGIN SECTION 
3330 : LET R3 EQUAL CTBL ; TABLE OF SEQUENCES AND 
3331 3 LET R4 ot te ; BYTE COUNTS 
3332 : WHILE (R3) NE #0 DO ; DO ALL ENTRIES 
3333 : : OUTPUT C(R3)+,(R4)>+ ; OUTPUT THE ENTRY 
3334 : ENODO 
3335 : LET R3 EQUAL OTBL ; MORE TOP BOTTOM SEQS 4 
3336 : LET R4 EQUAL DP ; TABLE OF BYTE COUNTS 
3337 3 WHILE (R3) NE #0 DO ; DO FOR ALL ENTRIES 
3338 : : OUTPUT (CR3)+,.CR4)> ; OUTPUT THE ENTRY 
saee : ENDDO 
suas : PHYSICAL LINES PER PAGE SECTION 
3343 : SET PHYSICAL LINES PER PAGE TO 8 INCHES 
3344 : DO FORM Ag 2 
3345 3 T COUNT FROM 1 TO 69 BY 1 
3346 : : . PRINT PLP MESSAGE 
3347 : : OO LINE FEED 
3348 : END INCREMENT | 
ats : PRINT END OF SECTION MESSAGE 
seas : IGNORED SEQUENCE SECTION 
3353 : SET TOP = BOTTOM MARGINS AT 1 AND 7 INCHES 
3354 : 00 FORM FEED 
3355 : LET R3 EQUAL IGNTBL ; IGNORED SEQUENCE TABLE 
3356 : LET R4 aoe te = _ ; BYTE COUNTS 
3357 : WHILE (R3) NE ; DO FOR ALL ENTRIES 
3358 : : OUTPUT weRs)+.CR4)s ; OUTPUT THE ENTRY 
3359 : ENDDO 
3360 : ne COUNT FROM 1 TO Se BY 
3361 : OUTPUT IGNORED SECTION MESSAGE 


CZLNADO LNOL 
CZLNAD.P11 


037460 
037460 


037460 


037576 


TEST 
10-APR -84 08:5 


112737 
112737 
112737 
112737 
112737 
112737 
112737 
1127357 
112737 
112737 
112757 
112737 
112737 


003114 
003115 
003116 
003117 
003120 
003121 
003122 
003123 
003124 
003125 
003126 
003127 
003130 


oes X24.07-5635 10-APR-84 


MARGINS TEST 
END INCREMENT 

OUTPUT END OF SECTION MESSAGE 
OUTPUT END OF TEST MESSAGE 

DO A FORM FEED 

DO RESET 

att’ ve or UNIT AS DECIPOINTS 


END ROUTINE 
. ENOR 


BGNITST 


Ti3:: 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


OUTBUF :B= @11 
MOVB 
OVTBUF +1 :B= 
MOVE 


OUTBUF «2 :B« 
“Ove 
OUTBUF +3 :6= 

MOVE _ 
OUTBUF o4 ;:68= 
OUTBUF +S :Be 

MOVE 
OUTBUF +6 :B= 

Move 
OUTBUF +7 :B= 


MOvB 
OUTBUF +13 :6-= 
MOVB 
OUTBUF +14 ;:B= 
OuTBUF-15 :8 


b8& 


09:07 PAGE 6-76 


SOURCE CODE IN SPMACJ 


13. 


#11, OUTBUF 
#115 

#1 Lt Sepelitaal ol 

“e OUTBUF +2 
015, ouTeur +3 

At .OUTBUF +4 

014, OUTBUF -S 


o7s 
: e73. OUTBUF +6 


e52. 
MOVE  #52,0UTBUF-7 
OUTBUF +10 :6 
MOVE 


OUTBUF +11 :B= 
MOVB 
OUTBUF +12 :B= @ 


208, 0UTOU 10 
077, *buTBUF il 
218) ura «12 
041 ,OUTBUF +15 
053, —o °14 


SEQ 0092 


s RETURN TO ALL DEFAULT 


CODE FOR HOR. TAB 
UPPER CASE “Mm” 

LINE FEED 

CARRIAGE RETURN 
VERTICAL TAB 

FORM FEED 

SEMI COLON FOR SEPARAT 
CODE FOR ASTERISK 
SPATE 

QUESTION MARK CHARACTE 
UNDERL INE 

EXCLAMATION 

PLUS SIGN 

EQUAL 


CZLNADO LNOL TEST 
CZL 10-APR -84 


NAD .P11 


rr ONO NOOO wu 
OU By yuVYUYVUUUW 


037576 
037604 
037604 
037612 
037612 


112737 
112737 
112737 


012737 
000402 


005237 
023727 


000725 


012703 


000711 


012703 
012704 


08:5 

000075 
000133 
000135 


000001 


002276 
002276 
040230 


044140 


040454 


044160 
044254 


040534 


005306 


owas X24.07-568 


003131 
003132 
003133 


002276 


000010 


C8 
mndOiAeRs84, 09:07 PAGE 6-77 


MOVB 075 ,,OQUTBUF +15 
LET OUTBUF +16 :B* 013 
MOVB #133, OUTBUF +16 


LET OUTBUF +17 :B= 0135 
MOVB 0135 ,OUTBUF +17 


y 

OUTPUT @REINIT,@2 

OUTPUT @SELDEC,@5 

OUTPUT @DECFIN,@S 

OUTPUT @TSTMRA, O30. 
OUTPUT @TABMS, 048. 

INCR —, FROM 1 TO 08. BY 01 


#1.COUNT 
503733 
503728: 
INC COUNT 
503738: 
C COUNT, 08. 


MP 
BLE 50374$ 

JMP 503753 
503748: 

OUTPUT @OUTBUF , o1 

OUTPUT @OUTBUF +1,¢1 
ENDINC 


503728 
503758: 
OUTPUT @OQUTBUF -2,¢1 
LET RS <n 


@PARTBL .RS 
WHILE (R3) NE #0 DO 
503768: 
TST CR3) 


BNE . +6 
JMP S03778 
OUTPUT CR3)+, #12. 


OUTPUT @OUTBUF +7,01,,0100. 


OUTPUT eOUTBUF +2, ¢1 
503763 


503778: 
LET R3 ;:= @ATBL 


MOV @ATBL .RS 
LET R4 ;2= @APTBL 


MOV @APTBL. Ra 
WHILE (R3) NE 00 DO 
504008: 

TST CR3) 

BNE +6 

JMP 504013 

OUTPUT (R3)+,( RE)» 
ENDDO 

BR 50400$ 


50401$%: 
JSR PC,QUIET 


LEFT RIGHT MARGIN SECTION 


SEQ 0093 


; LEFT SQUARE BRACKET 
3 RIGHT ” ” 


3 DECIPOINTS 

s; TOGGLE PAPER OFFSET 

s TEST ID ON LINE 1 (DEF 
s CLEAR DEFAULT TABS THE 
; DO TEN TIMES 


: DO A HORIZONTAL TAB 

; PRINT AN “M” 

s REFERENCE LINE OF “M”S 
; DO LINE FEED 

3 SETUP R3 AS INDEX TO T 
; DO FOR EACH ENTRY "N T 


; TRY AND PRINT 100 ASTE 
; THE LEFT AND RIGHT MAR 
; ODO A LINE FEED 


; FIRST TABLE OF SEQUENC 
; FIRST TABLE OF BYTE CO 


; DO FOR ALL ENTRIES 


D& 


LNA TEST X24.07- APR. 
ES OO! "EST apr.aa BNIBE X24-07- 565, AO; APR BA, 09:07 PAGE 6-78 SEQ 0094 
3431 040540 LET R3 := @BTBL 
(4) 040540 012703 044346 MOV @BTBL RS 
3432 040544 LET R4 :* OBPTBL 
(4) 040544 012704 044422 MOV OBPTBL ,R4 
3433 040550 WHILE (R3) NE #0 DO ; DO FOR EACH ENTRY IN T 
(4) 040550 504028: 
(6) @¢40550 005713 TST (R3) 
(8) O40552 001002 . 
(9) 040554 000137 040620 UMP 504033 
3434 040560 OUTPUT (R3B)+¢, CR4)> 3; OUTPUT THE ENTRY 
3435 040616 ENDDO 
3) 040616 000754 BR 504023 
(3) 040620 504033: 
3436 040620 004737 005306 JSR PC, QUIET 
3437 040624 OUTPUT @ONETEN, @12. ; SETS LRMAR TO 1 AND 10 
3438 OUTPUT @OUTBUF -2, 41 ; LINE FEED 
3439 040730 OUTPUT @OUTBUF -7,01,.0150. ; PRINT ASTERISKS ACROSS 
3440 040772 OUTPUT @OUTBUF «2, ; LINE FEED 
3441 041034 LET R3 :2* OIG! ; TABLE OF IGNORE SEQS 
(4) 041034 012703 044474 MOY @IGTBL R53 
3442 041040 LET R4 := SIGTBELP ; ” PARAMETERS 
(4) 041040 012704 044514 MOV @IGTBLP,R4 
3443 041044 WHILE (R3) NE #0 DO ; DO FOR EACH ENTRY 
(4) 041044 504048: 
(6) 041044 005713 TST C(R3) 
(8) 041046 001002 BNE .*6 
(9) 041050 000137 041320 JMP 504058 
3444 041054 OUTPUT a ; OUTPUT THE ENTRY 
3445 041112 OUTPUT @OUTBUF +3, ° ; CARRIAGE RETURN 
3446 041154 = COUNT FROM rh 0 #150. BY @1 
(S) 041154 012737 0O00001 002276 @1.,COUNT 
€7) 041162 000402 on 50407 
(6) 041164 504068: 
(8) 041164 005237 2902276 INC COUNT 
(6) 041170 504078: 
£7) 041170 023727 002276 000226 CMP COUNT, #150. 
€9) 041176 003402 SLE 504108 
€7) 041200 000137 041250 JMP $04118 . 
(6) 041204 504108: pepian. s 
3447 041204  QuTPuT eouTBUF +7, 01 ; PRINT ACROSS PAGE 
3448 041246 ENDING 2 
(4) 041246 000746 BA 504068 . 
(4) 041250 504118: | 
3449 041250 004737 005306 JSR PC. QUIET 
3450 041254 OUTPUT #OUTBUF +2, 01 ; LINE FEED 
3451 041316 ENDDO 
(3) 041316 000652 Bea 504048 
€3) 041320 504055: 
3452 041320 LET R3 :2 @CTBL 
(4) 041320 012703 044554 MOV @CTBL RS 
3453 041324 LET R4 :2 OCPTBL 
(4) 041324 012704 044646 MOV @CPTBL .R4 
3454 041330 WHILE (R35) NE #0 OO : DO FOR EACH ENTRY IN 5 
C4) 041330 504123: 
(6) 041330 005712 TS! (R38) 
(8) 041332 001002 BNE - *6 


CZLNADO LNO1 TEST 


CZLNAD. 


UIC ww 


NONOGA~s 
wae er re 


Pil 


10-APR - 84 


000127 


000754 
004737 
012705 
012704 


004737 


012705 
012704 


0127357 
000402 


0052357 
023727 


DNMAC X24 .07-565 


08:55 
041400 


005306 
044740 
045010 


041464 


005306 


044532 
044544 


042126 


002276 


E8 


wihasen teat 09:07 PAGE 6-79 SEQ 0095 
OUTPUT (R3)+, CRA)» ; ALL ENTRIES HANDLED NO 
ENDDO 
50412$% 
ah BC ‘QUIET 


TRS := @DTBL 


MOV @OTBL RS 
LET R4 := @DPTBL 


Vv @OPTBL ,R4 

WHILE (R3) NE #0 DO ; DO FOR EACH ENTRY IN 4 
504148: 

TST (R3) 

BNE 6 

JMP 504158 

OUTPUT (R3)+,(R4)> ; ALL ENTRIES HANDLED NO 
ENODO 

50414% 

504158: 
8 PHYSICAL LINES PER PAGE SECTION 
OUTPUT @PLP8,¢7 s PLP SEQUENCE TO 8 INCHES 
OUTPUT #OUTBUF -S, 1 ; FORM FEED 
OUTPUT @PLP,@32.,,069. ; PLP MESSAGE 69 TIMES 
JSR PC, QUIE 
OUTPUT SE0PLP, 660. ; END OF PLP SECTION MESSAGE 
3 IGNORE SEQUENCE SECTION 
OUTPUT @ONESVN, #12. ; SET TBMAR AT ONE AND SEVEN 
OUTPUT #OUTBUF -5, 61 s FORM FEED 
LET RS := #IGNTBL ; TABLE OF IGNOR SEQUENCES 

MOV @IGNTBL RS 
LET R4 :* OF | 3 | 

MOV _@IGNTEP ,R4 
WHILE (R3) NE @0 DO 
504168: 

TsT (R3) 

BNE .? 

JP §04178 

OUTPUT CR3)+,CR4)> ; SEND IGNORE SEQ 

OUTPUT @ENDTEM, o1 : FINAL CHAR FOR TBMAR 
ENDDO 

504168 

504178: 
JSR PC, QUIET 
INCR COUNT FROM #1 TO #52. BY ol 

MOV @1,COUNT 

BR 504213 
504208: 

INC COUNT 
504218: 

CMP COUNT, #52. 

BLE 504228 

JMP 50423$ 


F8 






C.LNADO LNO1 TEST ONMAC X24.07-S63_10-APR-84_ 09:07 PAGE 6-80 SEQ 0096 
CZLNAD.P11  10-APR-84 08:55 MARGINS TEST 
(6) 042162 504223: 
3484 042162 OUTPUT @IGSEC, 25. ; SECTION MESSAGE 
3485 042224 END INC 
(4) 042224 000746 BR 504208 
(4) 042226 504233: 
3486 042226 004737 005306 JSR PC, QUIET 
3487 042232 OUTPUT @E0IGN, ¢73. ; END OF IGNORE SECTION 
3488 042274 OUTPUT @ENDTS, 012. ; END OF TEST MESSAGE 
3489 042336 OUTPUT @OUTBUF +5, 1 ; FORM FEED 
3490 042400 OUTPUT @REINIT, 02 
3491 042442 OUTPUT @SELDEC, ¢5 ; DECIPOINTS 
3492 042504 004737 005306 JSR PC, QUIET 
3493 042510 EXIT TST 
(3) 042510 104432 TRAP =s-s CSEXIT 
3632 042512 002360 .WORD 10024-. 
aaae : LOCAL VARIABLES, TABLES. MESSAGES 
3497 .NLIST BEX 
3498 042514 055433 030061 046555 TSTMRA: .ASCII <33>/[ LOWMARGINS TEST 13 PAGE 1/<12><12> ; TEST I 
3499 042552 044124 051511 051440 TSTMRB: .ASCII /THIS SHOULD BE AT APPROX. 1 INCH MARK OF SECOND PAGE/ 


7PHYSICAL LINES PER PAGE Sect ION’ <12> 

/THIS SHOULD BE 2ND LINE OF OND PAGE AND END OF PLP SECTION. /<12> 

3502 042772 044124 051511 051440 EOIGN: .ASCII fen SHOULD BE ay Oe Ag PAGE ANDO END OF IGNORED SEQUENCE SECTION 
<12> 

3504 043134 033 135 062 PLPS: BYTE $3.135,62,61.66.60,164 


3505 043143 033 133 063 PLPS: .BYTE 2 133,63,.66,60,60, 164 

3506 043152 033 133 065 PLPS: .BYTE 33,133.65.67,.66.60, 164 

3507 043161 033 133 O66 : -BYTE 133 ,66,64, 70,60, 164 

3508 043170 033 133 063 CLRTAB: .BYTE 33,133,63, ; CLEAR 
3509 043174 033 133 063 TABMS: .BYTE 335480 63,147,33,133,61,64,64,60, 73.62,61,66.60, 73 : CLEARS HTABS A 
3510 043214 062 070 070 ‘BYTE 70,€ ,63,66,60.60, 73.64,.63,.62.60.73.65,60,64,60,165 

3511 043240 033 133 pes BYTE $3188.68 67.6660 78 66, 64, 70,60, 165 

3512 043254 033 133 BGNSEQ: .BYTE ol ; BEGINS 
3513 043256 033 133 060 .PARAMi: .@YTE 33, +55 G0+67 02s00-75-68 168.08 .60. 163 ; LEFT = 
3514 043272 033 133 061 PARAM2: .BYTE 3,133,61,64,64,60, 73.62, .60,163 ; 

3515 043306 033 133 062 PARAMS: .BYTE 33.133,62,61,66,60, 73.62, 70. . 163 ; 

3516 043322 033 133 062 PARAM4: .BYTE 33,133.62, 70,70, .63,66,60,60, 163 3 

3517 043336 033 133 063 PARAMS : -BYTE 3 2 133 ,6 e 8 6 . Py e 2 1635 e 

3518 043352 033 133 064 PARAM6: .BYTE 33,133.64.63.62,60,73,65,60.64. 60,163 ; 

3519 043366 033 133 065 PARAM7: .BYTE  33,133,65,60,64,60, 73,65,67,66.60, 163 ; 

3520 043402 033 133 065 PARAMS: .BYTE 3,133,65.,( ++ 60. 73,66.64, 70,60,1 : 

3521 043416 033 133 066 PARAMS: .BYTE  33,133,66.64,7 0,60, 73,67.62,60.60,163 : 

3522 043432 033 133 067 PRAMLO: .@YTE 33,133.67,.62.60.60.73.67.65.66.60.163 ; 

3523 043446 033 133 067 PARMIO: .BYTE  33,133,67.62.60.60 ; 10 IN 
3524 043454 033 133 061 PAR2: .BYTE 33,133,61,64,64.60, 73,62.61.66, 60.163 : 

3525 043470 033 133 062 PAR3: BYTE  33,133,62,61,66,60, 73.63.66.60,60, 163 ; 

3526 043504 033 133 063 PARS:  .BYTE 33.133.63.66.60. 60,73 66.64, 70,60,163 : 

3527 043520 033 133 060 ONETEN: .BYTE 33,133,60,67.62,60, 73.67,62,60.60, 163 

3528 043534 033 133 060 ONESVN: .BYTE 35'13360.67 6260. 73.65.60.64.60: 162 

3529 043550 033 133 O73 EXRMAR: .BYTE 33,133.73,61,60,70,60,60,165 ; SETS R 
3530 043561 073 MIDSEQ: .BYTE 73 ; SEMI C 
3531 043562 163 ENDLAM: .BYTE 163 : FINAL 
3532 043563 162 ENDTGM: .BY 162 ; FINAL 
3533 043564 165 ENDHT: .BYTE 165 3 FINAL 
3534 043565 141 ENOHR: .BYTE 141 3 FINAL 


G8 
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3535 043 140 E : .BYTE 140 ; FINAL 
3536 043567 144 ENDVAB: .BYTE 144 ; FINAL 
3537 043570 164 ENDPLP: .BYTE 164 ; FINAL 
3538 043571 033 133 163 IGNORL: .BYTE 33,133,163,33,133, 73,163, 33,133.60, 73,60. 163 ; THESE SEQUENCE 
3539 043606 033 133 163 IGNORA: .BYTE 33,133,163 
3540 043611 033 133 073 IGNORB: .BYTE 33,133.73.,163 
3541 043615 033 133 060 IGNORC: .BYTE 33,133,60,73,60,163 
3542 043623 033 133 065 IGNOR2: .BYTE 33,133,.65.60.64,60, 73,64,63,62,60 SETS M 
3543 043636 033 133 061 ORULE1: .BYTE 33,133.61, 73,61,62,67,65, 73,63,60,60, 73,62,.67,60,60, 73,63.65,41. i74 
4 AND 1. 
3545 033664 033 133 060 DRULE2: .BYTE 33,133,60,73,61,62,67,65, 73,61,66,65,60, 73,61.62,60.60. 73.63,65.41.174 
6 NCHES 


3548 043736 047524 020120 040515 TOPMAR: .ASCII /TOP MARGI 


I 
3547 043713 033 1335 O73 DEFMAR: .BYTE 35,153.75.65,70,63,62,162,55,135,64,67,65,73.67,64, rate 163 ; SEQ TO 
N. INCHES FROM THE TOP SHOULD EQUAL APPROX. 


3549 044025 102 052117 047524 BOTMAR: .ASCII /BOTTOM MARGIN. INCHES FROM THE TOP SHOULD EQUAL APPROX. / 
















3550 044113 105 042116 047440 ENDTS: .ASCII /END OF TEST/<i2> 

3551 044127 066 031061 032463 TOPNUM: .ASCII /612357/ 

3552 044135 06 070 BOTNUM: .ASCII /78/ 

3553 044140 EVEN 

3554 044140 043272 043 043322 PARTBL: .WORD 

3555 044160 043272 003124 TBL: .WORD PARAM2.OUTBUF 

3556 044202 043306 003123 043272 “WORD PARAMS, OUTBUF +7, PARAM2,ENDHR, 
3557 044232 043336 043 043566 “WORD PARAMS, PARAM7, ENDHAB, OUTBUF +14, PARAMS, 
3558 044254 000014 000001 APTBL: .WORD 12.,.1.6,1,1.6.1.1,1.12..1,6.1.1.1.12..1.6 
3559 044320 000001 000001 000001 “WORD 1,1,1.12.,.6.1-1.6.1,1.1 
3560 044346 043352 003123 003116 BIBL: .WORD PARAM6,OUTBUF.7.OUTBUF 
3561 044364 003123 043366 003123 -WORD — OUTBUF +7, PARAM7 , OU 

3562 044410 043336 004036 043636 "WORD PARAMS. SELP 

3563 044422 000014 0600001 “WORD 

3563 044474 043520 043606 043520 IGT@L: .WORD ONETEN, 

3565 044514 000014 000014 IGTBLP: .WORD 12..3,12..4,12..9..1le. 

3566 044532 043606 043611 043615 IGNTBL: .WORD IGNORA, , 

3567 046 000002 IGNTGP: .WORD 2,3,5,.86. 

3568 044554 043713 043352 043563 CTBL:  _WORD 

3569 044576 003117 004036 . WORD 

3570 044622 003116 042552 003116 "WORD  OUTBUF +2, TSTMRB. 

3571 043736 044131 003116 “WORD  TOPMAR, TOPNUM+2, OUTBUF «2.0 
3572 044646 000023 CPTBL: .WORO 

3573 044726 000001 000065 ‘WORD 

3574 044740 043306 043563 043736 DTBL: _WORD pana’ ven TOM, Topman 

3575 044760 044133 003116 042366 "WORD - TOPNUM+4 

3576 044776 043402 043567 044023 “MCRD PARAND ENDVAG BOTHAR, BOTIAINC1 © 
3577 045010 000006 OPTBL: _WORD 

3578 045060 083134 043143 043152 PLPTBL : -WORD — PLPS,PLPS,PLP8,PLP9,0 

3 "LIST BEX 

3581 045072 st 

(3) 045072 L10024: 

(3) 045072 104401 TRAP — CSETST 

3582 045074 ENDMOD 

3583 

3584 

3585 

35,86 

3587 


PARAM2 , PARAMS , PARAM4 , PARAMS , PARAM6 , PARAM7 , PARAMS ,O 
+10, PARAM1, ENDHAB , OUTBUF + 7 ,P 





*2.PARAM7 ,OUTBUF +7, PARM10,ENDHAB 
TBUF +7 ,OUTBUF +2, PARAMS , OUTBUF + 7, OUTBUF +2, PARAMS, OUTBUF 


SELDEC.0O 
12.,1,1,12..1,6.1.1.12..1,1.12..1.1. FENG 1. ies 22..5 
» IGNORG , ONE TEN. E 








; TABLE 
: o 


3; TABLE OF PARAM 


AMS. ENDHAB , OUTBUF + 12, OUTBUF +2 
OUTBUF +12, OUTBUF +2, PARAMS, OUTBUF +7. PARAMS ,E 
ENDHAB , OUTBUF + 7, OUTBUF «2,0 


; FIRST TABLE OF 
; 2ND TABLE OF S 


; 2ND TA 
; IGNORE 


; BYTE C 


° END TBM, BGNSEQ ,.MIDSEQ, PARAM6- 7, ENDTBM, TOPMAR, TOPNUM: 
OUTBUF -S, SELPIx,ORULE2, SELDEC .PARAML, END TBM. PARAN7 “ENDVAB.BOTMAR, BOTNUM 
OUTBUF +2, DE Dp END TBM 
bbe ad 1.2, i oe S$3..1, i. fos. ¢ 6. 1.6.1.56..1. 1 mee 8..6 


TOPNUM.+3 eek wae ates ; 4TH TA 
2 TOPMAR , TOPNUM+S . OUTBUF +2 


6.1.55. .1.1,.6,1,55..2.1,6.1, $3.1. 1.6.1.56..,1.0 


Hs 
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3589 
3590 
3591 
3592 
3594 .SBTTL AUTO-UNDERLINE-MODE TEST 
3595 ;sMODULE NAME: UNDLIN.P11 6/20/82 
te 045074 8B 

é 
3598 : GLOBALS REFERENCED 
3599 3 REINIT, ACRLF 
3001 
©01 gee 
3602 ; THIS VERSION OF THE AUTO-UNDERLINE TEST HAS BEEN ALTERED FOR USE IN LNO1 DIAGNOSTIC. 
3603 ; THE ORIGINAL VERSION WAS WRITTEN FOR HARD COPY TERMINALS USING SERIAL INTERFACE(0Z11) 
3604 ; THE ORIGINAL VERSION STILL EXISTS IN THE TML LIBRARY AND IS CALLED AUTUND.NE 
3605 ; THE LNO1 DIAGNOSTIC HAS DRIVERS FOR A PARALLEL INTERFACE(LP11,.M7258). 
3606 ; THIS TEST IS DESIGNED TO EXERCISE THE LNO1’S AUTO-UNDERLINING CAPABILITY. 
ang 4 ; MESSAGES ARE PRINTED WITH UNDERLINING AND WITHOUT. 

..°° 

3609 000000 .REPT O 
3610 
aeet BEGINTEST 
3613 : SEND “OFF” ESCAPE SEQUENCE (CLRUND) 
3614 : PRINT “AUTO UNDERLINE MODE TEST” CUNDTTL) 
3615 : SKIP TWO LINES (CACRLF )x2) 
Ste: : PRINT “THIS MESSAGE SHOULD NOT BE UNDERLINED” (CNCTUND) 
3616 
3619 : SEND “ON” ESCAPE SEQUENCE (UNDON) 
3620 : ani ad “THIS MESSAGE SHOULD BE UNDERLINED’ (UNDMSG) 
3621 : T CHARACTER SET (CATHRUZ) 
3622 
3623 
3624 : PRINT “TABS: " ( TABS) 
3625 : CLR TABS 
3626 : SET TABS 
3627 : "ve FROM 1 TO 8 BY 1 
3628 : : DO A 
3629 : 3 PRINT a at 
3630 : END: 
3631 : SKIP 2 LINES 
3632 
3633 | 
36 : PRINT ~SPACES: . ( SPACES) 
3635 : PRINT A 
3636 : INCREMENT COUNT FROM 1 Sot" .. 4 1 
3637 : : SEND A SPACE COUNT " 
3638 : PRINT A “S” 
3639 : ENDINCREMENT 
3641 
3642 : SEND UNDERL INE OF UNDERL INE -CHARACTER MESSAGE (UNDUND) 
3643 : PRINT A LINE OF 
3644 : SKIP 2 LINES CACRLF x 2) 


L8 
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INCREMENT COUNT FROM 1 TC 16 Br 1 s NOTE: CURRENT CODE ONLY DOES 11 OUE TO 
: TURN ON UNDERL INE 


‘ne 
a 
r= 
Le) 


3653 : SKIP 2 LINES 


SEND “OFF” ESCAPE SEQUENCE (CLRUND) 

PRINT “THIS MESSAGE SHOULD NOT BE UNDERLINED” (NOTUND) 
DO A RESET OF PRINTER DEFAULT CONDITIONS 

DO A FORM FEED 


w 
0 

wi 
“4 


3661 ENDTEST 
. ENOR 


3673 045074 BGNTST 14. 
(35 045074 T14:: 
3674 045074 LET OUTBUF :B> @11 ; HOR TAB CODE 
(4) 045074 112737 060011 003114 MOvVB #11 ,OUTBUF 
; LINE FEED CODE 
(4) 045102 112737 000012 003115 
3 ; FORM FEED CODE 
(4) 045110 112737 000014 003116. 
; CARRIAGE RETURN CODE 


(4) 045116 112737 000015 003117 





3678 045124 ; SPACE CODE 

(4) 045124 112737 000046 003120 

3679 045132 3; UPPER CASE “S” CODE 

(4) 045132 112737 000123 003121 

3680 045140 ; “T" CODE 

(4) 045140 112737 000124 003122 

3681 045146 ; UNDERLINE (_) CODE 

(4) 045146 112737 000137 003123 

3682 045154 

3683 045216 3; DECIPOINTS 

3584 04 INDON 3; SEQUENCE 'O TURN UNDERLINE ON 
3685 045322 @NOUND , &5 ; “ - OFF 
3686 045364 OUTPUT OUNDTTL,@36. ; TEST IO 

3687 045426 OUTPUT @NOTUND, 040. : MESSAGE SAYING “NOT UNDERLINED 
3688 i 

3689 045470 OUTPUT @UNDON, 04 :; SEQ TURNING UNDERLINE ON 

3690 045532 OUTPUT @UNDMSG, 060. 3; MESSAGE SAYING “UNDERLINED: 
3691 045574 OUTPUT @ATHRUZ, 029. 


J8 
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3693 045656 OUTPUT @TABS, 47 oe TABS MESSAGE 
3694 045700 OUTPUT @NOTAB, 04 ;CLR ALL TABS 

3695 045742 OUTPUT @STTAB, 041. SET TABS AT 1,1 1/2.2,3,4.5.7,1 
3696 046004 INCR WORK FROM @1 TO 08. BY 01 

(5S) 046004 012737 000001 003110 MOV @1, WORK 

(7) O46012 000402 BR 50425$ 

(6) 046014 50424% 

(8) 046014 005237 003110 INC WORK 

(6) 046020 504253: 

(7) 046020 023727 003110 000010 CMP WORK , 08. 

(9) 046026 003402 BLE 50426% 

.7) 046030 000137 046142 JMP 50427% 

(6) 046054 504265: 

3697 046034 OUTPUT #@OUTBUF ,@1 ag TAB 

3698 046076 OUTPUT #OUTBUF -6, 41 

3699 046140 ENDINCR ;00 FOR ALL TAB SETTINGS 
(4) 046140 000725 BR 50424 % 

(4) 046142 504278: 

3700 046142 OUTPUT @NOTAB, 04 ;CLR TABS 

3701 046204 Ov ; CR, LF 
oe 046246 ; CR, LF 
3704 046310 duTPuT @SPACES , #9 ;SEND SPACE MESSAGE 
3705 046352 OUTPUT #eOUTBUF 5,6 SEND “S” 

3706 046414 INCR WORK FROM rs] to #14. BY #@1 

(S) 046414 012737 000001 003110 MOV #1, WORK 

€7) 046422 000402 BR 504318 

(6) 046424 504308: 

(8) 046424 005237 003110 INC WORK 

(6) 046430 5$0431%: 

(7) 046430 023727 003110 000016 CMP WORK . #14. 

(9) 046436 003402 GLE 504328 

(7) 046440 000137 046556 JP 504333 

(6) 046444 50432¢s: 
3707 046444 OUTPUT @OUTBUF -4,21, , WORK SEND SPACE WORK TIMES 
3708 046506 004737 005306 JSR PC, QUIET 
3709 046512 | ouTPUT @OUTBUF +5, 01 :SEND “S” 

3710 046554 ENDINCR . 

(4) 046554 000723 BR $04308 

(4) 046556 50435$%: 

3711 046556 QuTPUT | GACRLE #2 : CR. LF 

3714 04 Outeut @UNDUND , © sUNDERLINE THE UNDERLINE MESSAGE 
3715 046724 INCR wae FROM ie TO #132. BY @1 :; DO IT 132 TIMES 

(5S) 066724 012737 000001 002276 MCV , COUNT 

(7) 046732 000402 435% 

(6) 046734 504354: Safe 

(8) 046734 005237 002276 TWC COUNT 

(6) 046740 504358: 3 

(7) 046740 023727 002276 000204 CMP COUNT, @152. 

€9) 046746 003402 BLE 504 36% 

(7) 046750 000137 047020 JMP 50437% 

(6) 046754 504365: 

3716 046754 : OUTPUT #OUTBUF -7,¢1 : UNDERLINE CHARACTER 
3717 047016 ENDINC 


CZLNADO aio TEST 
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NAD. 10-APR-84 0 
(4) 047016 000746 
(4) 047020 
3718 047020 004737 
3719 047024 
3720 047066 
3721 047130 
(5) 047130 012737 
(7) 047136 000402 
(6) 047140 
(8) 047140 005237 
(6) 047144 
67) 047144 023727 
(9) 047152 003402 
(7) 047154 000137 
(6) 047160 
3722 047160 
3723 047222 
3724 047264 
3725 047326 
3726 047370 
(4) 047370 0600663 
(4) 047372 
3727 047372 
3728 047434 
3729 
3730 047476 
3731 047540 
3732 047602 
3733 047644 
3734 047706 
3735 047750 004737 
3736 047754 
€3) 047754 104432 
(3) 047756 000442 
3737 
3738 
3739 047760 033 
3740 047764 033 
3741 047770 033 
3742 047775 033 
3743 050027 065 
3744 050046 03 
3745 050052 055433 
3746 050117 1 
3747 050170 044124 
3748 050232 047111 
3749 050265 1 
3750 050332 050123 
3751 050344 040524 
3752 050354 041101 
3753 050411 117 
3754 050414 043117 
3755 
3756 
3757 


Ks 


BYNSE *24-07 565 AB ORB ERY a BBe HERE °° °° 


005306 


000001 


002276 
002276 
047372 


005 306 


002276 


000013 


50437$%;: 


BR 504 34% 


JSR PC,QUIET 
OUTPUT @ACRLF , 42 
OUTPUT @ACRLF , #2 






SEQ 0101 


INCR COUNT FROM #41 TO #11. BY 41 ;. NOTE: THIS SHOULD BE 16 BUT M 
MOV » COUNT 
BR 
504408: 
INC COUNT 
504415: 
CMP COUNT, #11. 
BLE 504423 
JMP 50443% 
504425: 
OUTPUT @UNDON, 64 ; TURN ON UNDERLINE 
OUTPUT @OUN, 63 PRINT ON AND A SPACE 
OUTPUT @CLRUND, 04 TURN OFF UNDERL INE 
OUTPUT FUN, 04 ; PRINT OFF AND A SPACE 
ENDINC 
BR 50440$ 
504435: 
@'TPUT @ACRLF , #2 
OUTPUT @ACRLF , #2 
OUTPUT @CLRUND, 04 ; UNDERLINE MODE OFF 
OUTPUT @NOTUND, 040. ; NOT UNDERLINED MSG 
OUTPUT @OUTBUF +2, 61 ; DO FORM FEED 
OUTPUT @REINIT, 02 ; RESET DEFAULT CONDITIONS 
OUTPUT @SELDEC, 5 : DECIPOINTS 
JSR PC, QUIET ; WAIT TILL DONE 
EXIT TST 
TRAP CSExIT 
. WORD 110025 -. 
-NLIST BEX : 
: ,BYTE 33.133.60,155 sESC { Om 
$ BYTE 33,1 eee eee sESC [ 4m 
NOUND: .BYTE eet baeteee 64,1 sESC [ 24m 
STTAP: .BYTE 33,133.6 7.62. to.73. 61,60, 70,60, 73,61.64,64, 60.73,62.61.66,60, 73.62,70,7 
-BYTE 63,66,60,60,75, 65,60, 64, 60, 73, 67 62, 60,60, 165 sSET TABS AT 1.1 f72.2. 
NOTAB: .BYTE 33,155, 3; CLEAR ALL HOR TABS 
UNDTTL: .ASCIZ >/[ LOmAUTO- UNDERLINE -MODE TEST 14/<15><12><12><12> 
NOTUND: .ASCIZ SAGE SHOULD NOT BE UNDERLINED. 7<15><12> 
: .ASCII /THIS MESSAGE SHOULD BE UNDERLINED / 
-ASCIZ RLINE MODE. yeiss¢42s<12> 
: .ASCIZ /UNDERL OF UNDERLINE -CHARACTERS: /<15><12> 
SPACES: .ASCIZ /SPACES:/<12><15> 
TABS: -ASCIZ /TABS:/<15><12> 
ATHRUZ: .ASCIT —e IJUKLMNOPORS TUVWXYZ/<15><12><«12> 3; 29 CHARACTERS 
OUN: -ASCII /ON 
FUN: -ASCII TOF. / 
~-EVEN 
-LIST BEX 
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3759 
(3) 
(3) 

3760 


050420 
050420 
050420 
050422 


050422 


10-APR -84 


104401 


L8 


poets X24 .07-365 18 -E 8 207. FAgt 6 -86 SEQ 0102 


ENDTST 


L10025: 


TRAP CseETstT 
ENDMOD 


.SBTTL PARTIAL LINE UP/DOWN TEST 


MODULE NAME: NEWPLU.P11 


BGNMOD 


° 
< 


THIS TEST IS AN ADAPTATION OF THE PARTIAL LINE UP, PARTIAL LINE DOWN 
TEST USED ON HARDCOPY TERMINALS. THE ORIGINAL VERSION OF THIS TEST 

IS DESIGNED FOR USE ON TERMINALS USING THE 0Z11 SERIAL INTERF 

THE ORIGINAL IS CALLED PTLINE. aig AND, IS LOCATED IN THE TML LIBRARY 
ON THE MILL20 DEVELOPMENT SYSTEM IN A SUBDIRECTORY CALLED TML.TESTS. 
THIS COPY, WHICH HAS BEEN NAMED PLUP.P11, IS FOR USE ON THE LNO1 
ELECTRONIC PRINTER ONLY. IT IS DESIGNED FOR USE ON PRINTERS USING THE 
LP11 (M7258) INTERFACE. A COPY OF PLUP.P11 IS LOCATED ON gata <TML .G> 


ANSI TAL DOWN ESCAPE SEQUENCES. 
OTHER —— hg gre THE MACHINES ABILITY TO PERFORM MULTIPLE 
tee FUNCTIONS TAKES UP ONE LINE SPACE APIECE IN THE LNO1'S PAGE 


.REPT 


0 
BGN PTLINE TEST 
IP 3 LINE 


pt 2 LINES 
PRINT END OF TEST MESSAGE 
OGGLE PAPER OFFSET 


M8 
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3814 : DO FORM FEED 

3815 : RESET THE PRINTER 

3816 : SELECT SIZE UNIT AS DECIPOINTS 
3817 END TEST 


3819 EXAMPLE OF OUTPUT: 
1 1 a 1 
3823 000 —. 000 . 000 sacsad 000 
3826 WHERE SUBSCRIPTS AND SUPERSCRIPTS ARE OFFSET BY A PARTIAL LINE. 


3829 .ENDR 


3840 050422 BGNTST 15. 
€3) 050422 T1iS:: 
3841 34006 SELECT PORTRAIT FONT #244; 
3842 050422 OUTPUT PREINIT, G2 
OUTPUT DECIPOINTS 


5 $ 
3844 050526 OUTPUT @SKIPS, 04 ; SKIP 3 LINES 
3845 050570 wiauk cexiee ; PRINT TEST ID 
2 


OUTPUT @SKIPS, SKIP 3 MORE LINES 
3847 050674 LET OUTBUF :B= #12 
(4) 050674 112737 000012 003114 MOVE #12, 0UTBUF | 
3848 050702 INCR WORK FROM @1 TO #9. BY #1 ; DO 9 LINES OF THE CODE 
(5S) 050702 012737 000001 003110 #1, WORK 


050712 50444$: 
050712 005237 003110 

050716 50445$: 
050716 023727 003110 000011 

050724 003402 

050726 000137 051346 


$E3 x 88 


an 1 ae ae ae ae ee ae ae | 


T FROM @S TO #1 BY @1 


o 
: 


050732 012737 000005 002276 
000402 


R $3 
es 


050742 005337 002276 


050746 023727 002276 000001 
050754 002002 : . 
050756 000137 051236 JMP 50453$ 


aS 
ga 
ee 


Patera 

AnNOANAORA aU! 

et a a ed ad ed a a a a a et 
@ 
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052014 
052014 
052014 
052016 


052016 


000137 


004737 


112737 


052014 


104401 


oes X24 .07-563 


08:5 


050712 


005306 


000014 


005306 


003114 


061 
030533 
020124 


000 
045433 
046033 


N8& 


19-APR- 6-88 
PARTIAL LENE UP/DOWN TEST see 0104 
OUTPUT #DECLCS, #5 ; SELECT LOGICAL FONT 410 
OUTPUT #PL1,¢3 ; PRINT ‘000’ 
OUTPUT oPL2, ; DO SUPERSCRIPTS 
OUTPUT @PL1,43 ; PRINT ‘000’ 
OUTPUT #PL3,45 ; DO SUBSCRIPTS 
ENDDEC 
BR 50450$ 
504538: 
OUTPUT @PL1,¢3 ; PRINT ‘000’ 
OUTPUT #OUTBUF , 41 ; LINE FEED 
ENDINC 
JMP 50444 
50447$: 
OUTPUT @OUTBUF , oe ; | LINES 
OUTPUT @TDONE,@ ; TEST COMPLETE MESSAGE 
JSR QUIET 
OUTPUT @DECFIN, 65 ; TOGGLE PAPER OFFSET 
LET OUTBUF :6= 414 ; CODE FOR FORM FEED 
MOVB 14, OUTBUF 
OUTPUT TBUF , 1 ; DO THE FORM FEED 
T @REINIT, 62 ; RESET DEFAULT CONDITIONS 
OUTPUT @SELDEC, ; DECIPOINTS 
EXIT TST 
TRAP CSEXIT 
-WORD 1L10026-. 
NLIST BEX 
CLCS: .BYTE 33,133,61,60,1 ; SEQ TO SELECT LOG FONT #10 (DEFAULT) 
PTLINE: .ASCIZ S1d2 2150089771 OMPARTIAL LINE UP-DOWN TEST 15/7 
T : .ASCII /TEST COMPLETE /< 12> 
PL1i: -ASCIZ /000/ 
PL2: ASCIZ <33>/L1/<33>/K/ 
PL3: -ASCIZ <33>/K1/<33>/L/ 
EVEN 
.LIST BEX | 
TST 
Li 7 | 
TRAP  CSETST 
ENDMOD : 


-SBTTL ORAW VECTORS TEST 
sMODULE DRWVEC.P11 


3+ 


8GNMOD 
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DRAW VECTORS TEST 


-REPT O 


FUNC TIONAL tn case 

THIS TEST IS DESIGNED TO TEST THE DRAW VECTOR (SOMETIMES CALLED DRAW RULE) FUNCT 
OF THE LNO1 ELECTRONIC PRINTER. THE DRAW VECTOR FUNCTION, CALLED “DECVEC’, oRS 
A LINE OF VARIABLE THICKNESS. THE X DIRECTION IS PARALLEL TO PHYSICAL PAGE MOVE 
THE Y DIRECTION IS PARALLEL TO THE LASER SCAN. THE LINE’S ORIENTATION. POINT OF 
ORIGIN, DISTANCE AND WIDTH MAY BE wis BY SPECIFYING CERTAIN PARAMETERS IN TH 
AFTER USING THE DRAW VECTOR COMMAND, THE ACTIVE POSITION IS RETURNED TO THE ACTI 
POSITION mae” TO GIVING THE COMMAND. 


SUPPOSE THAT “BEFORE” A DRAW VECTOR COMMAND: ACTIVE POSITIONS AR 
VERTICAL * 1 INCH FROM TOP © 
HORIZONTAL =» S INCHES FROM LEF 


THEN A COMMAND IS GIVEN TO ORAW VECTOR FROM 3 INCHES HORIZONTALL 
HORIZONTALLY, VERTICAL ORIGIN IS 4 INCHES, WIDTH IS 1/72 INCH. 


“AFTER” EXECUTING THE COMMAND: Ak.” POST TIONS SHOULD STILL BE 
VERTICAL $ INCH FROM TOP OF 
HORIZONTAL = S INCHES FROM LEFT 


NOTE: CURRENT POSITION IS IDENTICAL AFTER DRAW RULE COMMAND AS BEFORE. 


THE TEST VERIFIES THESE FUNCTIONS BY PRINTING THE TEST ID AND THEN 

BELOW THE ID DRAWING A RECTANGLE 3 INCHES IN HEIGHT AND 9 INCHES IN WIDTH. THE 
CENTER LINE DRAWN HORIZONTALLY THROUGH IT. IT WILL ALSO HAVE & VERTICAL LINES 
DRAWN AT 1 INCH INTERVALS INSIDE THE RECTANGLE. THE RECTANGLE WIL'. ALSO CONTAIN 
THE LETTERS WILL BE ARRANGED IN SUCH A WAY SO AS TO SPELL OUT “LNO1” ON THE UPPE 
THE RECTANGLE AND TO ey PJ “DIGITAL” IN THE LOWER 


e. 

THE RECTANGLE WILL BE HANDLED BY, FIRST, DRAWING THE UPPER AND LOWER OUTSIDE 
BORDERS OF THE RECTANGLE USING THE DRAW VECTOR COMMAND. THESE LINES WILL BE 
1/2 INCH THICK. SECOND, THE TEST WILL MOVE THE ACTIVE POSITION TO THE CORRECT 
LOCATION OF THE FIRST LETTER (L) TO BE PRINTED. MOWEVER, THE LETTER WILL NOY BE 
PRINTED YET. GEFORE PRINTING IT A ORAW VECTOR COMMAND WILL BE GIVEN TO THE 
PRINTER TO DRAW THE ye T OUTSIDE BORDER OF THE RECTANGLE. THE THICKNESS OF THIS 
BORDER WILL ALSO BE 1/2 INCH. AFTER DRAWING THE BORDER THE ACTIVE POSITION 
SHOULD AUTOMATICALLY RETURN TO THE POSITION OF THE FIRST LETTER. THE LETTER 
gs THEN BE PRINTED. THIS SAME CONCEPT OF POSITIONING THE ACTIVE COLUMN 

HE PROPER LETTER POSITION AND THEN DRAWING A VECTOR BEFORE PRINTING THE 
LETTER WILL BE USED TO COMPLETE THE RECTANGLE, INCLUDING THE LETTERS. 
THE. VERTICAL LINES WITHIN THE RECTANGLE WILL BE A DIFFERENT WIDTH THAN 
THE BOUNDARIES. THE CENTER LINE WILL BE STILL A DIFFERENT WIDTH THAN 
THE BOUNDARIES AND THE VERTICAL LINES. THIS WILL TEST THE VARIABLE 
WIDTH FUNCTION, | ay DRAW VECTOR COMMAND’S ABILITY TO DRAW OUTSIDE 
EXISTING MARGINS IS CURRENTLY vere TESTED IN THE MARGINS TEST, AND, 
WILL NOT BE EXERCISED IN THIS <a? 


GLOBALS REFERENCED: 
REINIT QUIET 


KGLNA 


LNA 


052016 
052016 


012705 
012704 


C9 


ont! TES apm on BUTEE %24-97 563,018 GEBiEAs G2EP7 PACE 6-90 


POL 


eee ROUT INE 
MOVE a a TO ABSOLUTE 1 INCH MARK 
PRINT TEST ID 
DRAW VECTOR FOR TOP LINE OF RECTANGLE 


00 FOR a. ENTRY IN TABLE 


TO ge POSITION FOR NEXT LETTER 


: DRAM NEXT VECTOR 
: PRINT NEXT LETTER 


: ENODDO 

: MOVE VERTICALLY TO 7 INCH MARK 

: PRINT TEST IO 

: RESET THE PRINTER 

: DO FORM FEED 

: SELECT SIZE UNIT AS DECIPOINTS 
CALL QUIET ROUTINE 

END ROUTINE 


. ENOR 


BGNTST 16. 


@VERPO1 , 06 
pore ga 


®@UNDER 
OuTPuT eTOPVEC, 031. 

@vERPOS, 
LET RB := mMETION | 

MOV. -@ETTBL, a8 
LET R4 ;:2 OBrT 

MOV @BYTTBL,R4 
WHILE (RS) NE #0 DO 
504546; 3 

TST (R3) | 

BNE 











UMP siéSO5SSS 
OUTPUT (R3)> CRA)» 
504544 


#28 
OUTPUT ORE INIT. 02 
OUTPUT @SELDEC,@5 


SEQ 0106 


3 FROM 2ND INCH VERTICAL 
s TO LOTH INCH HORIZONTA 
s TABLE OF SEQUENCES TO 


s SHOULD BE IN CORRECT P 


; CENTER JUSTIFIED 


MOVE he ate TO 1 INCH MARK 


NE 
DRAW TOP LINE OF RECTANGLE 
MOVE VERTICALLY TO 3 INCH MARK 
SET UP TABLE OF SEQUENCES TO P 
BYTE COUNTS OF SEQUENCES IN TA 


DO FOR EACH ENTRY IN LETTER TA 


MOVE TO LETTER POSITION, DRAW 


MOVE VERTICALLY TO 8 INCH MARK 


SEND TEST ID FOLLOWED BY A FOR 
RESET TO DEFAULT CONDITIONS 
SELECT DECIPOINTS 


D9 
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EStNAR PL Ot "EST apr-aa BUMBE 4-97 565,049 OER IBAs PeeP? PAGE 6-91 SEQ 0107 
4001 052622 004737 005306 JSR PC,QUIET ; GUARANTEE THE FORM FEED 
4002 05°626 EXIT TST 
(3) 052626 104432 TRAP CSExIT 
Bi 052630 001240 WORD 110027 . 
4004 .NLIST BEX 
4005 3 LOCAL VARIABLES, TABLES, MESSAGES 
4006 052632 055433 030061 042155 DRWVEC: .ASCII <33>/[{10mDRAW VECTORS TEST 16/<15><12><14> ; TEST ID. FIRST 22 CHAR 
pre 052666 oie 051511 050040 yt -ASCII /THIS PAGE SHOULD BE OFFSET FROM THE PREVIOUS PAGE/ 
4009 052750 053133 053203 0532535 LETTBL: .WORD LVEC.NVEC, VECO, VEC1 OVEC, IVEC.GVEC, IVEC2, TVEC, AVEC,.LVEC2.0 ; TEL OF 
4010 053000 000050 000050 000075 BYTTBL: .WORD 40.,40.,61.,39.,46.,40.,40.,40.,40. ,40. ,40.,.0 ; BYTE C 
4011 053030 033 133 064 UNDER: .BYTE 33,133,64,155 ; UNDERLINE ON 
4012 053034 033 133 060 UNDROF: .BYTE 33.1335,60,155 $ = OFF 
4013 053040 033 133 067 VERPOL: .BYTE 33,133.67 ,62,60,144 . s VERTICAL POSITION FOR 
4914 053046 033 133 062 VERPOS: .BYTE 33,133,62,61,66,60, 144 ; " 
4015 053055 0353 133 063 VERPOS: BYTE 33,133,63,66,.60,60, 144 $ > 
4016 05 033 133 065 VERPO7: .BYTE 33, -65.60,64,60,144,15 3 ° 
4017 053074 033 133 067 TOPVEC: .BYTE »133,67,40,111.33.133,61,73,66,60,60, 73,63,60,60,73 ; DRAW v 
4018 053115 067 060 BYTE -67,60,60,735,63,67,.41,174,33,133,62,40,111 
4019 053133 033 133 061 LVEC: BYTE 33,135.61. 70,60,60,140,353,153,67,40,111,335,133.61, 73,61, 70,60,60, 73 
4020 053160 063 060 BYTE 63,60,60,735,62,67,635.67,73,63,67,41.,174,33,133,.62,40,111.114 
4021 053203 033 133 063 NVEC: BYTE 33.133,63,62,64,60,140,33,133,67,40,111,33,133.61,73.61,62,60,60, 73 
4022 053230 063 060 BYTE 63,60,60,73,62.67,60,60,73,61,70,41,174,33,133,62,40,111.116 
4023 053253 033 133 064 vECO: .BYTE 33.135,64,66, 70,600,140, 33,133,67,40,111,33,133,60, 73,66,60,60, 73 
4024 053277 063 060 060 -BYTE 63,60,60,75,61,.62,60,60, 75.63,67,.41.,.174,33,133 
4025 053316 060 073 066 BYTE 60. 73,.66.60.60, 73.63,60,.60,60, 73,61.62.60,60,73 
4026 053336 063 067 041 -6YTE 63,67,41,174,33.1335,62,40,111,.60 
4027 053350 033 133 066 VECI: BYTE 33.133,66,61,62.60,140,33,133.,67,40.111,33,133,60, 73.66,60.60, 73 
4028 053374 060 BYTE .60,60, 73,61.62,.60,60, 75,63.67,41,174,33,.,133.62.40.111.61 
4029 053417 033 133 063 OVEC: -BYTE 33,133,635 ,66,60,60, 144,33,135,61,70,60.60,140, 33,133,67.40,111 
4030 053442 023 133 060 -BYTE 33.133,60,73,66,.60,60,73,71,.60,60, 73.61.62.60,60 
4031 053462 073 067 BYTE 73,.63,67,41,174,33,133,62,40,111,144 
4032 053475 033 133 O62 IVEC: BYTE 33,133 ,62,65,62,60.140, 33,133,.67,.40,111,33,.,133.,60, 73,66,.60.60, 73 
4033 053521 061 062 060 BYTE 61, 60.60,73,61,.62.60.60, 73,.63.67,41.174,33,133.62,.40,111.151 
4034 053545 033 133 063 GVEC: BYTE 33,133,6 62,64 ,60,140,53.133.67,40,111.33,133.60, 73.66,60.60, 73 
4035 053571 061 065 060 -BYTE 61,65,60,60,73.61.62,.60.60, 73,63,.67.41.174,33,133.62.40.111.,147 
4036 053615 033 133 063 IvVECe: YTE 33,133,635, 71,66,.60,140,33,133,67,40,111,33,133.,60, 73.66,60.60, 73 
4037 053641 061 070 060 -6YTE 61,70,60,60,73.61,62,60.60, 73,.63,.67,41.174,33.,133.62.40.111.151 
4038 53665 033 133 064 TVEC: BYTE 33,1335,64,66, 70,60,140, 33,133.67,40,111.,33.1335.60, 73,.66.60,60, 73 
4039 053711 062 061 060 -6YTE 62,61,60,60, 73,61.62,60,60, 73,.63.67.41.,174,33,133,62.40.111,164 
4040 053735 033 133 065 AVEC: BYTE 33,133,.65,64,60,60, 140, 33,133,67,40,111.33,.133.60, 73.66.60,60, 73 
4041 053761 060 .BYTE 62,64 ,60,60, 73,61.62,60.60, 73.635.67,.41.,174,33,133.62.40.111.141 
4042 054005 033 133 066 LVEC2: .BYTE 33,135,66,.61.,.62,60,140,33,133,.67,40,111.,33.133.60, 73.66.60.60, 73 
4043 054031 067 060 .BYTE 62 ,67,60,60, 73.61.62,60.60, 73.63,67,41.174,33,133.62.40.111.154 
4044 054055 033 133 062 JUSTON: .BYTE 33,133,62,40,106. ; BEGIN JUSTIFY 
4045 054062 043 133 060 JUSTOF: .BYTE 33,133.60,40, 106. ; END JUSTIFY 
4046 054970 EVEN 
4047 LIST BEX 
4048 054070 TST 
(3) 054070 10027; 
€3) 054070 104401 TRAP CSETST 
4049 054072 ENDMOD 
4050 
4051 
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4053 
4054 
4055 
4056 
4057 
4058 
4059 
4062 .SBTTL VUSTIFY TEST 
4063 ;MODULE JUSTIF.P11 
4064 
4065 054072 BGNMOD 
4066 
4067 gee 
4068 : FUNCTIONAL DESCRIPTION 
406 ; 
4970 ; THIS IS A TEST OF THE STATED FUNCTIONS OF THE JUSTIFY COMMAND ON L 
4071 ; ELECTRONIC PRINTER, THE JUSTIFY COMMAND AS DEFINED IN THE LNOL FUNCTIONAL 
4072 ; SPECIFICATION IS SUPPOSED T 0 FUNCTION IN THE FOLLOWING WA 
4073 : IT JUSTIFIES TEXT LINES WITHIN THE LEFT AND RIGHT MARGINS BY VARYING THE 
4074 3 SPACE BETWEEN WORDS. me TERWORD SPACING IS ADJUSTED SUCH THAT THE FIRST 
4075 ; WORD STARTS AT THE LEFT MARGIN AND THE LAST WORD ENDS AT THE RIGHT MARGIN. 
4076 3 THE SPACE IS ge LOTSTRISUTED BETWEEN WORDS OF JUSTIFIED TEXT. 
4077 ; THE MINIMUM AND MAXIMUM DISTANCE BETWEEN WORDS WILL NOT BE LESS THAN 
4078 3 NOR GREATER T 2008 OF THE WIDTH OF THE SPACE CHARACTER. 
4079 : NO JUSTIFICATION WILL OCCUR IF THESE LIMITATIONS ARE EXCEEDED. 
4080 : JUSTIFICATION WILL OCCUR ON ALL TEXT GETWEEN A START AND STOP 
pee. 3 JUSTIFY COMMAND. 
> 
4083 : A START JUSTIFY DETECTED WITHIN A LINE WILL DETERMINE THE LEFT 
4084 : JUSTIFY POINT FOR THAT LINE. A STOP JUSTIFY DETECTED WITHIN A 
4085 ; LINE DETERMINES THE RIGHT JUSTIFY POINT FOR THAT LINE. 
4086 ; To JUSTIFY ACCORDING TO THE LEFT AND RIGHT MARGIN, THE START 
4087 ; AND STOP JUSTIFY COMMANDS MUST ENCOMPASS THE LINE BEGINNING AND 
é 
4089 ; IF JUSTIFICATION HAS BEEN TURNED ON AND OFF WITHIN A TEXT LINE 
4090 3 THE SPACE CHARAC Le 4 — THE SEQUENCE USE THE NORMAL WIDTH 
pods. 3 OF A SPACE CHARACTER 
ry 
4093 ; THE JUSTIFY TEST WILL EXERCISE THESE FUNCTIONS AND PROVIDE A MEANS 
4094 ; FOR VISUALLY VERIFYING CORRECT OPERATION AND LIMITATIONS. 
é 
4096 3-- 
4097 | 
4098 ; GLOBALS REFERENCED: 
4099 ; MESSAGES. VARIABLES, SUBROUTINES 
4100 ; REINIT, COUNT, OUTBUF QUIET 
4102 000000 [REPT 0 
4103 
4104 PDL 
4105 
4106 BEGIN ROUTINE 
4107 , SEND RESET SEQUENCE ; RESET PRINTER TO DEF AU 
4108 PRINT JUSTIF , ; TEST ID 


4109 : SKIP A LINE 
4110 : SECTION 1 


CZLNADO LNOL TEST 
CZLNAD.P11 


4111 
4lle 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 


10-APR-84 08:55 


ee e8 #8 6 68 Ge 82 68 88 @©8 86 OF G6 66 Ge 88 88 CF 88 46 Ge 66 86 G8 88 68 88 Ge Fe 
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TURN ON JUSTIFY 

PRINT EXPLANATION OF SECTION 1 

TURN OFF JUSTIFY 

SKIP A LINE 

INCREMENT COUNT FROM 01 TO 17. BY @1 ; DO 
SEND “JUSTFY” s PRINT WORD “JUSTIFY” 
SEND “SPAJUS”,COUNT TIMES 5 AND 
DO A CARRIAGE RETURN AND LINE FEED 


END INC 
SKIP A LINE 


TURN JUSTIFY ON 
INCREMENT COUNT FROM @1 TO 17. BY 41 
IF COUNT EQ 014. THEN 
TURN UNDERLINE ON 


ENDIF 

IF COUNT EQ @17. THEN 
TURN OFF UNDERL INE 

ENDIF 


SEND “JUSTFY” : PRINT WORD “JUSTIFY” 
SEND “SPAJUS” COUNT TIMES : SPACE AND WORD JUSTIFY 
SEND A CARRIAGE RETURN, LINE FEED 


ENOINC 
TURN JUSTIFY OFF 
SKIP A LINE 


INCREMENT COUNT FROM 1 TO 17. BY 1 
IF COUNT EQ 14. THEN 
TURN UNDERLINE ON 
ENDIF 
IF COUNT EQ 17. THEN 
TURN OFF UNDERLINE 


SEND “JUSTFY” ; PRINT WORD “JUSTIFY” 
SEND “SPAJUS” COUNT TIMES ; SPACE AND WORD JUSTIFY 
TURN JUSTIFY OFF 

CARRIAGE RETURN, LINE FEED 
ENDINC 


SECTION 2 


TOGGLE PAPER OFFSET 

DO FORM FEED 

PRINT EXPLANATION OF SECTION 2 

TURN ON JUSTIFY 

LET RS EQUAL TEXTBL ; TABLE OF TEXT LINES 

LET R4& EQUAL TEXTBP . ; BYTE COUNTS FOR TEXT 7 

WHILE (R3) NOT EQUAL TO O DO ; DO FOR ALL ENTRIES 
SEND (R3)+,(R4O)> ; OUTPUT THE ENTRY 


JUS TIF 
LET RS EQUAL TEXTBL 
LET R& EQUAL TEXTBP 


gL MADOC. LNOL TEST 
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4167 
4168 
4169 
4170 
4171 
4172 
4173 


112737 
112737 
112737 
112737 
012737 


004737 


ONMA 


005306 


003114 
003115 
003116 
003117 
003120 


012737 000001 002276 
000402 
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WHILE (R3) NOT EQUAL TO O DO 


SEND (R3)+,CR4)> 
ENDDO 
SKIP 3 LINES 
PRINT END OF TEST MESSAGE 
ORM FEED 


FE 
: RESET THE PRINTER 
END ROUTI 
“ENOR 


BGNTST i17. 
Ti7:: 


: SOURCE CODE 


LET OUTBUF :B= 415 
Move #15, 0UTBUF 
LET OUTBUF +1 :B= #12 
#12, OUTBUF «1 
LET OUTBUF +2 :B= #14 
#14 ,OUTBUF -2 
LET OUTBUF «3 :B= #40 


040 ,OUTBLUF +3 
LET OUTBUF e4 := 055 
#55 ,OUTBUF +4 
OUTPUT @REINIT,.@2 


OUTPUT 
OUTPUT @JUST :@22. 
OUTPUT @OUTBUF +1, #1 


; eee 









| #1 
INCR COUNT FROM #1 TO 017. BY o1 
MOV @1,COUNT 
50457 





504563: 


—" SIZE UNIT AS DECIPOINTS 


SEG 0110 


; OUTPUT THE ENTRY 


CARRIAGE RETURN 
LINE FEED 

FORM FEED 

SPACE 

DASH 


RESET THE ———- 
+ ge 


SKIP A LINE 


TURN JUSTIFY ON 
EXPLAINS FIRST SECTION 


TURN JUSTIFY OFF 
SKIP A LINE 
DO THIS CHUNK OF CODE 


CZLNADO LNOL TEST 
CZL 


NAD .P1i 


(6) 


RAN ARAAAR 
BOWBAWMWA WO NAD 
ee ee ae 


10- 


005237 
023727 


003402 
000137 


000704 


012737 
000402 


005237 
023727 


02372? 
001402 
000137 


023727 
061402 
000137 


012737 
000402 


005237 
023727 


APR -84 
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08:55 JUSTIF 
002276 

50457%: 
002276 000021 
055164 

50460$: 

ENDINC 

504615: 
000001 002276 

504625: 
002276 

504633: 
002276 000021 
055624 

504643: 
002276 000016 
055376 

504665: 
002276 000021 
055454 

50467$%: 

ENDINC 

OUTPUT 
000001 002276 

504703; 
002276 

504715: 
002276 000021 
0564 34 


H9 
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TEST 


INC COUNT 
CMP COUNT , #17. 
BLE 50460$% 


JMP 50461% 

OUTPUT @JUSTFY, 47. 

OUTPUT @SPAUUS, 48. , ,COUNT 
OUTPUT @OUTBUF +1,¢1 


50456$ 


OUTPUT @OUTBUF +1, 41 

OUTPUT @ONJUST,@5 

INCR COUNT FROM @1 TO @17. BY 41 
MOV OUNT 


BR 
INC COUNT 
CMP COUNT, #17. 
BLE 50464 $ 
JMP 50465$ 
IF COUNT EQ @14. THEN 
CMP COUNT, > 
BEG .*6 
JMP 50466 $ 
OUTPUT @UNON, 04 
ENDIF 
IF COUNT EQ 017. THEN 
CMP COUNT, #17. 
BEQ . *6 
JMP 50467% 
OUTPUT @UNOF , 04 
ENDIF 


OUTPUT @JUSTFY,@7. 
OUTPUT #SPAJUS, 08... COUNT 
OUTPUT SOUTBUF +1,@1 


eeeeei 


OUTPUT #OUTBUF +1.¢1 
INCR COUNT FROM 01 TO 017. BY #1 
MOV COUNT 


50471% 
INC COUNT 
CMP COUNT ,@17. 
BLE 50472% 
JMP 50473% 


SEG 0111 


WORD “JUSTIFY” 
SPACE AND WORD ‘JUSTIF 
CRLF 


SKIP A LINE 
TURN JUSTIFY ON 
DO THIS CHUNK OF CODE 


TURN ON UNDERL INE 


WORD “JUSTIFY” 
SPACE AND WORD “JUSTIF 
CRLF 


UNDERLINE OFF 
TURN JUSTIFY OFF 
SKIP A LINE 


gL ABO iLNOL TEST 
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(6) 056022 025727 
(8) 056030 001402 
(9) 056032 000157 


(6) 056100 023727 
(8) 056106 001402 
69) O56110 000157 


(4) 056430 0001357 


(4) 057054 012703 
(4) 057060 012704 


(4) 057244 012703 
(4) 057250 012704 


DNMA 
08:5 


002276 000016 


056100 


0022 76 
056156 


056002 


063506 
063526 


057140 
005306 


063506 
063526 


000021 


19 
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5$0472%: 
IF COUNT EQ 614. THEN 
CMP = ew 
BEG 
JMP 508748 
OUTPUT @UNON, 04 
ENDIF 
50472$: 
IF COUNT EQ @17. THEN 
CMP COUNT ,@17. 
BEC a. +6 
JMP 504 /5$ 
OUTPUT @UNOF , 04 
ENDIF 
50475: 
OUTPUT @ONJUST, 65 
OUTPUT @JUSTFY,@7. 
OUTPUT @SPAJUS,@6.,,COUNT 
OUTPUT @OFF JUS, @5 
OUTPUT @OUTBUF +1,41 
ENDINC 
50470$ 
504735: 
OUTPUT @UNOF , 04 
3 SECTION 2 


OUTPUT @DECFIN, 05 







IP 
OUTPUT @ONJUST, 65 
LET RS :* @TEXTOL 3 
OTEXTBL RS 


MOV 
LET R464 := OTEX xTeP 
@TEXTBP .R4 
WHILE cree NE. 00 00 
50476 
TST. (RS) 
BNE Pi. eae 
ae 504776 
JSR PC. QUIET 
ENDDO : 
3 504768 
50477$%: 


OUTPUT @SKIPS, 04 
OUTPUT OFF JUS, ¢5 
LET R35 := OTEX 

MOV @TEXTBL RS 
LET R4 := OTEXTEP 


MOV STEXTBP ,R4 
WHILE (R35) NE #0 DO 


SEG Olle 


> UNDERLINE ON 


WORD “JUSTIFY” 


SPACE AND WORD “JUSTIF 
CRLF 


: UNDERLINE OFF 


TOGGLE PAPER OFFSET 
FORM FEED 

EXPLAINS THE SECTION 
2ND PART OF EXPLANATIO 
SRD PART 


TURN ON JUSTIFY 


OUTPUT THE ENTRY 


SKIP 3 LINES 
TURN OFF JUSTIF 


CZLNADO LNOL 
CZL 


NAD .P11 





057330 
057372 


057610 


057612 


TE 


ST 
10-APR -84 
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08:5 


057330 
005306 


005306 


JUSTIFY TEST 

505008: 
‘ST (R35) 
BNE .*6 


JMP 505015 
OUTPUT CRS)" (RA). 
JSR PC, QUIET 


505008 
505018: 
OUTPUT @SKIPS, 04 
OUTPUT #ENJUS, 11. 


ENDDO 


JSR PC. QU 
If TST 
CsExIT 
WORD 110050- 
-NLIST BEX 
3 LOCAL VARIABLES, 
SPAOFF: .ASCII / OFF/ 
JUSSPA: .ASCII /JUSTIFY / 
AJUS: .ASCII / JUSTIFY/ 
JUSTFY: .ASCII /ASTIFY/ 
OFFSPA: .ASCII /OFF / 
ONSPA: .ASCII /ON / 
ON: ASCII /ON/ 
NOSPA: .ASCII /NO / 
NO: ASCII /NO/ 
CHAR44: 
CHAR24: .ASC /AISTIFY I 


TABLES, MESSAGES 


-ASCII /JUSTIFY Is TURNED OFF ust IS TURNED 9FF/ 
<35>/{ L0mJUSTIFY TEST 17/<15><12> 
‘PAGE WILL DEMONSTRAT 





FOR EACH LINE WITH JUSTIFY BEING TURNED/<12> 
TO THE LINE FEED. /<12> 
ee veils THE DIFFERENCE ay PRINT 
>/PARAGRAPH 1 DONE / 


SEQ 0113 


; SKIP 3 LINES 

END OF TEST MESSAGE 
FORM F 

DO A RESET PRINTER TO 


DECIPOINTS 
GUARANTEE THE FORM FEE 





Is 
THE UNEVEN MARGIN AND 


| II /NOTE THE 1. NOTE 
: ASCII /THE UNOL SRINTER SUSTIFIES TEXT LINES aCe THE CURRENTLY DEFINED LEFT 


-ASCII /AND RIGHT MARGINS BY VARYING THE SPAC 
TEXT1: .ASCII / NOT DETERMINE THE END OF 

-ASCII /INTERWORD SPAC 
TEXT2: .ASCII /CHARACTER OF THE FIRST WORD STAR 

ASC HE LAST WORD END 





“ASCII / OISTANCE BETWEEN 


WORDS ./<12>/THE LNOL DO 


BETWEEN 
LINE NOR DOES IT MAKE HYPHENATION DECISIONS. 
ING WITHIN A LINE TEXT IS ADJUSTED SUCH/<12>/THAT THE 
LEFT MARGIN, THE LAST CHARACT 
THE SPACE/<12>/BETWEEN WORD 
MINIMUM 


L NO 
TEXT4: .ASCII /WIDOTH OF THE SPACE CHARACTER NOR LESS THAN 608 OF THE SPACE CHARACTER 


CZLNADO LNO1 TEST 
CZLNAD.P11 


063606 


KO 


DNMAC X24.07-563 10-APR- 07 P ‘ 
FOLAPR-84 bO-5S guetiry Teer 22? AGE 6-96 SEQ 0114 
047111 052040 042510 SCI /IN THE FONT FROM WHICH THE WORD CHARAC-/<12>/TERS ARE DERIVED. A LINE 
043117 052040 054105 TEXTS: ‘ASCI£ /OF TEXT WILL NOT BE JUSTIFIED IF THE MAXIMUM OR 7 
0448515 044516 052515 SCII /MINIMUM SPACE SIZE RESTRICTIONS CANNOT BE HONORED./<12>/THE / 
1i2 051525 044524 TEXT6: ‘ASCII /JUSTIFICATION OPERATION WILL BE PERFORMED ON ALL TEXT WHICH OCCURS / 
042502 053524 042505 ASCII /BETWEEN A START OF JUSTIFICATION AND AN END OF JUSTIFICATION SE-/<12>/0 
047105 020104 043117 ENJUS: ASCII /END OF TEST/ 
061614 062031 062251 TEXTBL: .WORD TEXT, TEXT1, TEXT2, TEXTS, TEXT4, TEXTS, TEXT6.0 
000215 000220 000225 TEXTBP: [WORD 141..144.,149.,130.,136.,103.,139. 
033 133 062 ONJUST: .BYTE 33,133,62.40,106 : S CHARS 
033 133 060 OFFJUS: _BYTE 33.133,60,40,106 
033 133 064 UNON: BYTE 33.133.64.155 UNDERL INE on 
033 133 060 UNOF: BYTE 33.133.60,155 : OFF 
033 133 062 ABS3: “BYTE  33.133.62.66,63,65, 140 : ABSOLUTE 10 3.66 INCH 
033 133 065 aBS7: BYTE 33.133,65,62.67.67.140 . 7°33 
"LIST BEX 
ENDTST 
L10030: 
104401 TRAP - CSETST 
ENDMOD 


-SBTTL PORTRAIT TEST 


sMODULE PORT 
BGNMOD 


see 
& 


; 
+ THE Lok iN POR 
QUE TO THE. 


Pil 


FUNCTIONAL DESCRIPTION 


HE PORTRAIT TEST IS DESIGNED 190 “VERIFY”“ THE EXTENDED FUNCTIONALITY OF 





TRAIT ea USING THE RESIDENT PORTRAIT FONT. 
FACT THAT THE LNO1 DEFAULT FONT 


OF TESTING OF BOTH asre AND Lot een FUNCTIONALITY IS DONE IN DEFAULT LANDSCAPE 
fag pe ong THE PURPOSE OF T 


EXTENDED FUNCT 









HE “PORTRAIT + gg IS TO “VERIFY” THE FUNCTIONALITY 


ONE SHEET OF ent AND, WILL IDENTIFY ITS OWN 

BE A “QUICK VERIFY” ONLY OF THE EXTENDED FUNCTIONS 
TESTING OF THE EXTENDED FUNCTIONS IS ACCOMPLISHED IN 
Y FOR EACH PARTICULAR FUNCTION. 
ING AND SELECTING ge - BE TESTED IN THIS TEST. 






FONT LOAD ASSIGNING 
; THESE FUNCTIONS WILL BE TESTED IN THE “FONT TES 
THE FUNCTIONS VERIFIED INCLUDE: 

1 MARGINS 


2 TABS 
3 UNDERL INE 


CZLNADO LNOI TEST 
10-APR-84 08:55 


CZLNAD .P11 


000000 


DNMAC X24.07-S565 


‘9 


10-APR-84 09:07 PAGE 6-99 


PORTRAIT TEST 


4 SUPERSCRIPT AND SUBSCRIPT 


SEG 0115 


S HORIZONTAL AND VERTICAL POSITION ABSOLUTE 
6 HORIZONTAL AND VERTICAL POSITION RELATIVE 


7 ORAW VECTORS 
9 SIZE UNIT SELECT 


GLOBALS REFERENCED: 


MESSAGES, VARIABLES, SUBROUTINES 
0 


BEGIN PORTRAIT TEST 


SECTION 0 


A gd BUFFER WITH OCTAL CODES TO BE SENT DURING TEST 


dO 
LET R3 EQ ADDRESS OF TABLE SECO 
LET R4 EQ ADDRESS OF TABLE SECCNT 
WHILE (R3) NE 80 DO 

OUTPUT (R3)+,CR4)> 
ENDDO 


SECTION 1 
MOVE TO VERTICAL 3 INCH MARK 
SET gee 
PRINT SECTI 
LET RS EG ADDRESS OF TABLE MARTBL 
WHILE (R3) NE #0 DO 
UT ENTRY 
PRINT LETTER “mm” 


OUTPUT #ABMAR 
PRINT LETTER “M” 
ENDDO : 


SECTION 2 


LET RS EQ ADDRESS OF TABLE TABUND 
LET R4 EQ ADDRESS OF TABLE TABUCT 
WHILE (R3) NE 60 DO 

OuTPUT (RS)+, CRA D¢ 
ENODDO 


SECTION 3 


MOVE VERTICALLY TO 5 INCH MARK 
PRINT SECTION ID 
PRINT LETTER “S” 
INCR FROM 1 TO 2 BY 1 
oul #S1 


TABLE OF OUTPUTS FOR T 
TABLE OF BYTE COUNTS F 
DO FOR EACH ENTRY IN S 
OUTPUT CURRENT ENTRY 


; TABLE OF MARGIN SETTIN 


SEQUENCE TO TRY AND MO 


; TBL OF SEQS TO SET TAB 
BYTE COUNTS 


OUTPUT NEXT ENTRY OF Tf 


DO THIS CHUNK OF CODE TWICE 
HT,SUBSCRIPT AND “S” 
HT, SUPERSCRIPT AND “S” 


HT,SUBSCRIPT AND "S' 


CZiLNADO LNO1 TEST 
CZLNAD .P11 
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112737 
112737 
112737 
112737 


M9 
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10-APR-84 08:5 


000011 
000012 
000013 
000014 


003114 
003115 
003116 
003117 


DO A LINE FEED 
SECTION 4 


: MOVE VERTICALLY TO 6 INCH MARK 
: PRINT SECTION ID 
LET RS EQ ADDRESS OF TABLE #ABTEL 
aeae ate ADDRESS OF TABLE @ABTBCT 
SELECT PIXELS AS NEW SIZE UNIT 
WHILE (R3) NE #0 DO 

OUTPUT (R3),.CR4) 

PRINT “H" 


ENDOO 
SELECT = AS SIZE UNIT 
DO LINE FEED 


SECTION 5 
LET RS EQ ADDRESS OF TABLE SIDVEC 
LET R4 EQ ADDRESS OF TABLE #IDVCNT 
WHILE (RS) NE #0 DO 
OUTPUT CR3)+,CR4)> 


ENDDO 
LET R3 EQ ADDRESS OF TABLE #LNO1TB 
OUTPUT (R3)-> 


ENDOO 
DO FORM FEED 
DO RESET 


END PORTRAIT TEST 
-ENDR 


BGNTST 18. 
T18:: 
| SECTION O 
LET OUTBUF :B= #11 
MOVE #11, O0UTBUF 
LET OUTBUF +1 :B= #12 
MOVB 012, OUTBUF +1 
LET OUTBUF +2 :B= 15 


MOVB 
LET OUTBUF +3 :B= 


SEG 0116 


TABLE OF ABSOLUTE AND RELATIVE 
BYTE COUNTS FOR ABTBL TABLE 
FIRST H AT LEFT MARGIN 


DO FOR — ENTRY IN MOVE TABL 
NEXT MOVE 


TABLE FOR SECTION ID,POSITIONI 
BYTE COUNTS FOR TABLE IDVEC 
DO FOR EACH ENTRY OF TABLE 
NEXT ENTRY 


TABLE TO POSITION FOR AND PRIN 
NEXT ENTRY | 


HOR TAB 
LINE FEED 
VER TAB 
FORM FEED 


CZLNADO LNO1 TEST 
CZL Pil 10-APR -84 


NAD. 


112737 
112737 
112737 
112737 
112737 
112737 


012703 
012704 


012703 


000670 


012705 


N9 
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000015 
000115 
000123 
000110 
000114 
000152 


067036 


067246 


003120 
003121 
003122 
003123 
003124 
003125 


PG:.:RAIT TEST 
LET OUTBUF +4 :B- #15 


V #15, OUTBUF +4 
LET OUTBUF +S :B= #115 
MOVB #115, OUTBUF +5 
LET water :B= R 


12 
#123 , OUTBUF +6 
LET OUTBUF+7 :B= #11 
MOVB mtg OUTBUF +7 
LET OUTBUF+10 :B= @ 


114 
0114 ,OUTBUF +10 
LET OUTBUF+11 :B= #152 
MOVB #152 ,OUTBUF +11 


OUTPUT @REINIT, #2 
OUTPUT @SELDEC, #5 
LET R3 := #SECO 

MOV #SECO,RS 
LET R4 := @SECCNT 

V #SECCNT ,R4 

WHILE (R3) NE #0 DO 
505025: 


" TST CR3) 
BNE .+6 


JMP 50503$ 
OUTPUT CR3)+,CR4)>+ 
BR 50502 $ 


SECTION 1 


OUTPUT #SEC1,@11. 
LET RS := 
MOV @MARTBL., RS 
WHILE (R3) NE #0 DO 
50504: 
TST (R3) 
BNE er 
JMP ~-§0505% 
OUTPUT (R3)+, 612. 
OUTPUT #OUTBUF +S, 
OUTPUT #ABMAR,@7 
OUTPUT OUTBUF +11, 01 


ENDDO 3 : 
50504$ 


50505$ : 
OUTPUT #OUTBUF +1,¢1 
OUTPUT @NORMAR, #12. 


: SECTION 2 


LET R3 := #TABUND 
MOV #TABUND ,R3 


SEQ 0117 


; CARRIAGE RETURN 
; UPPER CASE “Mm” 


‘ " “Se 
; ” oye 
; UPPER CASE “L” 
; ASTERISK 


; DECIPOINTS AS SIZE UNITS 
; NAME OF TABLE OF OUTPUTS FOR T 


; TABLE OF BYTE COUNTS FOR OUTPU 
; DO FOR EACH ENTRY IN TABLE 


; SEND THE ENTRY 


; MOVE VERTICALLY TO 2 INCH MARK 
; NORMAL IfARGINS FOR THIS TEST 


; TEST IO 

; MOVE VERTICALLY TO 3 INCH MARK 
; PRINT SECTION ID AND 2 LINE FE 
; TABLE OF MASGT™ SE1I1ING SEQUEN 


; DO FOR EACH ENTRY IN MARTEL 


; OUTPUT NEXT oe 
: PRINT LETTER “M 
; SEQUENCE TO TRY AND MOVE TO “N 
; PRINT ASTERISK 


; LINE FEED 
; NORMAL MARGIN SETTING SEQUENCE 


; TABLE OF SEQUENCES TO SET TABS 


CZLNACO | NO! 
CZLNAD .P 


AAO 
AnyNONPOOD -~ 
ae ae a es ee 8 8 Oe 


11 


iEST 
10-APR -84 08:5 


012704 


012737 
000402 


0052357 
023727 


003402 
000137 


000665 


012703 
012704 


067274 


064750 


067512 
067534 


065754 


002276 


000002 


B10 
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PORTRAIT TEST 
LET R4 ;:= STABUCT 
MO 


V @TABUCT,R4 

WHILE (R3) NE #0 DO 
505068: 

TST (R35) 

BNE .*6 

JMP 505078 

OUTPUT (R3)+,CR4O)> 
ENODO 

AR 50506 $ 
505078: 
3 SECTION 3 


OUTPUT OVERS, 07 

OUTPUT @SEC3,@29. 

OUTPUT SOUTBUF +6, 61 

INCR ae FROM 01 TO 02 BY o1 


@1,COUNT 
505118 
505108: 
INC COUNT 
505118: 
CMP COUNT , #2 
BLE 505128 
JMP 50515% 
505123: 
OUTPUT @S1,04 
OUTPUT #@S2,04 
OUTPUT 6S2,04 
OUTPUT #@S1, 04 
ENDINC 
50510$ 
50513%: 


OUTPUT eOUTBUF +1, 01 


$ SECTION 4 


OUTPUT @VERG,@13. 
OUTPUT #@SEC4, 023. 
LET R3 :* @ABTEL 
3 @ABTBL RS 
LET R4 := @ABTBCT 


MOV enBTBCT, R4 
OUTPUT SOUTBUF +7 
OUTPUT @PSSU,05 _ 

WHILE (R3) NE 00 DO 
50514$; 


TST (R35) 
BNE . +6 


JMP 505158 
OUTPUT (R3)+,(R4)> 
OUTPUT GOUTBUF +7,01 
BR 505148 


ENDOO 


SEQ 0118 


TABLE OF BYTE COUNTS FOR TABUN 


OUTPUT NEXT ENTRY 


ABSOLUTE S INCH VERTICAL 

3RD SECTION ID AND 2 LINE FEED 
PRINT LETTER “S” 
DO THIS CHUNK OF CODE TwICE 


HT,SUBSCRIPT AND “S” 
HT ,SUPERSCRIPT AND "S” (BACK vU 
HT, SUPERSCRIPT "3° 

HT, SUBSCRIPT AND “S” (BACK DOW 


LINE FEED 


VERTICAL TO 6 INCHES USING ABS 
SECTION 4 ID AND 2 LINE FEEDS 
TBL OF ABSOLUTE AND RELATIVE “ 


BYTE COUNTS FOR ABTBL TABLE 


PRINT FIRST H AY LEFT MARGIN 
SELECTS SIZE UNIT 4S PIXELS RA 


MAKE NEXT MOVE 
PRINT "H” 


7% 
ZLNA 


4554 


Ps) > > 
VIAAAAYUAYUARUUSE AAA 
YViVoar & 
WMuvuvwwv 


ViVNagnauvdah 


neheterd > 


> 
Oyeuvuv@yunuvw 


& 2 
an 
Crt: 
wy 


065754 
065754 
066016 


012703 
012704 


06 7666 
067712 


066140 


070212 


066216 


C10 
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505158: 
OUTPUT @DSSU,¢5 
OUTPUT @OUTBUF «1,01 


; SECTION 5 


LET R35 := @IDVEC 

MOV @IDVEC R53 
LET R@ :* #IDVCNT 

MOV #IDVCNT ,R4 
WHILE (R3) NE @0 DO 
505163: 


TST (R3) 

BNE .*6 

JMP 505178 

OUTPUT (R3)+,(R4)> 
ENODO 

505168 

505178: 
LET RS := @LNOLTB 

MOV @LNOLTB,R3 
rote CR3) NE 60 00 

TST (R3) 

BNE . °6 

JMP 505218 

OUTPUT (R3)+, 08. 
ENDOO 

BR 505205 
505218: 


OUTPUT SOUTBUF +35, 01 
OUTPUT @REINIT. 02 


SEQ 0119 


s RETURNS SIZE UNIT TO DECIPOINT 


3 LINE FEED 


; TABLE FOR SECTION ID, POSITION 
s TABLE OF BYTE COUNTS FOR IDVEC 


s OUTPUT NEXT ENTRY IN TABLE 


; TABLE TO POSITION FOR AND PRIN 


; DO NEXT ENTRY IN TABLE 


3; FORM FEED 
; RESET THE DEFAULTS IN THE PRIN 
; DECIPOINTS AS SIZE UNITS 


JSR PC QUIET 3; GUARANTEE THE FORM FEED 

EXIT TST 

TRAP CSExIT 

. WORD LiI0OS31-. 
-NLIST BEX 
i : LOCAL VARIABLES, TABLES, MESSAGES 
PORT: -ASCII /PORTRAIT TEST 18/<12> ; TES? ID AND LINE FEED 
SEC1: -ASCII. /MARGINS ;/<12><12> : SECTION ID AND 2 LF 
SECe: -ASCII «15>/TABS AND UNDERLINE :/<12> 3; SECTION ID AND LINE FE 
SECS: -ASCII /SUPERSCRIPT AND SUBSCRIPT :/<12><12> ; SECTION IO AND 2 LINE FEEDS 
SEC4: -ASCII /HORIZONTAL POSITION :/<12><12> ; SECTION ID AND 2 LINE FEEDS 
got td -ASCII /VECTORS :/<12> ; SECTION ID AND LINE FE 
SECO: -WORD PORSEG,SELPIX,FRAME .SELDEC,.O TABLE FOR SECTION O 
SECCNT: .WORD 27.,5,86.,5 ; BYTE COUNTS FOR SECO TABLE 
PORSEG: .BYTE 33,120,61.735,61,61.175S,104,105,124,151 ; SEQS TO ASSIGN AND SELECT PORT 

BYTE 164,141,156,61,60,55, 122,335,134, 353,133,61,61,155 
VER2: -BYTE 335,135. 61,64, 64,60, 144 ; VERTICAL POSITION ABSO 
IOMAR: .BYTE 33,1335,62,64,65 ,60.73, 63,67,70,60, 163 ; LR MARGINS AT 3 1/4 AN 
ONJU: -—BYTE 55,135, 60,40, 106 3 TURN ON JUSTIFY 
OFF UU: .BYTE 35,1355,62,40,106 ; TURN OFF JUSTIF) 


D1O 


CZLNADO LNOL TEST D*siAC X24.07-563 10-APR-84 09:07 PAGE 6-104 SEQ 0120 

CZLNAD.P11 10-APR-Ss 08:55 PORTRAIT TEST 
4584 066664 u35 133 062 VERS: BYTE 33,133,62,61,66,60,144 ; ABSOLUTE VER POS 2 INC 
4585 0666753 033 1335 061 NORMAR: .BYTE 35,1535,61,70,60,60, 73,65,64,60,60,163 ; NORMAL MARGINS FOR THI 
4586 066707 035 133 O61 FRAME: BYTE 33,153,61,735,63,60,60,73,63,60,60,73,62.67,60,60,73 
4587 066730 041 BYTE .60,41, ° 3,133.61, 75,62 ,62,65,60. 75, 63, 60, 60, 73 
4588 066751 062 067 060 BYTE 62,.67,60,60,735,62,60,41,174,33,133,60, 73,63. 60,60,73 
4589 066772 063 060 060 .BYTE -60,60,735,61,71, 5.60.73 .62,60,41,174 
4590 067007 033 133 060 BYTE 33,1353,60,73,63,60,60,73,63,60,60,60,73,61,71,67,60,73 
4591 067031 062 060 041 .BYTE 62,60,41,174 ; SEQUENCES TO DRAW FRAM 
4592 s ON ALL FOUR SIDES. 
4593 067036 EVEN 
4594 067036 067062 067076 067112 MARTBL: »CMAR ,OMAR ,EMAR,FMAR,.GMAR,HMAR,IMAR,O ; TABLE OF LR MARGIN SET 
4595 067062 033 133 061 AMAR: BYTE 33.133,61.70,60,60, 73,62,61,66,60,163 ; LEFT 21/72, RIGHT 
4596 067076 033 133 062 BMAR BYTE 33,133,62,61,66,60, 73,62.65.,62,60,163 ; 3 
4597 067112 033 133 O62 CMAR: BYTE 33,1353,62,65,62,60,73,62,70,70,60.163 5 3 1/2 
4598 067126 033 133 O62 OMAR: BYTE 33,133,62,70,70,60,73,63,62,64,60, 165 ; 4 
4599 067142 035 133 063 EMAR: BYTE 33,133,63,62,64,60,73,63,66,60,60,163 ; 4 i/2 
4600 067156 033 1335 063 FMAR; BYTE 33,133,.63,66,60,60, 73,63,71,66,60,163 ; 5 
4601 067172 033 133 063 GMAR: BYTE 33,155.63. 71,66,60, 73,64,63,62,.60,163 ; S 1/2 
4602 067206 033 133 064 HMAR: -BYTE 33, -64,63,62,60,735,64,66,70,60,163 ; 6 

067236 033 133 065 : .BYTE 335,153,65,64,60,60,140 3 SEQ TRYING TO MOVE TO 
4605 067246 -EVEN 
4606 067246 067320 003116 066430 TABUND: .WOPD STVER4,OUTBUF -2,SEC2, = CLEART, TSET,ONUN 
4607 067264 067415 003115 067437 ~WORD UNDERL ,OUTBUF +1 .OF FUN ; TABLE OF SEG TO SET TA 
4608 067274 000013 000001 000026 TABUCT: .WORD 11..,1 522.0104, 42.,4 ey ae ; BYTE COUNTS FOR TABUND 
4609 067320 033 133 064 STVER4: .BYTE 33, 133,64,147, 33, 133 »62.70,70,60,166 ; CLEAR ALL VER TABS AND 
4610 067333 033 133 063 CLEART: .BYTE 33,1335,635,147 ; CLEAR ALL HOR TABS 
4611 067337 033 133 O62 TSET: -BYTE 33,133.62,61,66.60.73,62.65.62,60, 73.62, 70, 70.,.60,73 
46le 067360 063 062 064 -BYTE 63.62,64,60, 73,63. 66 60,60, 73, 63, 71, 66, 60, 73 
4613 067377 064 063 062 BYTE 64,63,.62.60,75, 64,66, 70, 60,165 SET HTABS AT 3.3 172.4 
4614 067411 035 133 064 ONUN: BYTE 33,1335,64,15 URNS UNDERLINING ON 
4615 067415 125 011 116 UNDERL: .BYTE 125,11, 116, 11,104,11,105,11.122.11.114.11.111. 11: 116.11.105.12 ; PRINT 
4616 067437 033 133 060 OFFUN: .BYTE 33,133,60, i5S 3 TURNS UNDERL INING OF F 
4617 067443 033 133 063 VERS: .BYTE 33, 133,63, 66 ,.60,.60,144 : MOVE TO ABSOLUTE VER P 
4618 067452 O11 033 113 Si: BYTE 11,33, 113,1 123 3; HT, SUBSCRIPT AND “S 
4619 067456 011 033 114 3 BYTE 11.35,114.125 ee SUPERSCRIPT “ 
4620 067462 033 1335 063 VER6: BYTE 33, 133.63, 66 ,60.60,144, 53,133.67.62.60.145 ; VER 6 INCH MARK USING 
4621 067477 0335 133 067 PSSU: -BYTE 33.133 -67,40,1 li s SELECT SIZE UNIT AS PI 
4622 067504 0335 133 062 ODSSU: BYTE 33.1353,62,40,111 s SELECT SIZE UNIT AS DE 
4625 067512 -EVEN . 
4624 067512 067554 067562 067571 ABTBL: .WORD »HORE ,HORF .HORG ,HORH,O ; TABLE TO MOVE HOR ABSO 
4625 067534 000006 000007 000007 ABTBCT: . S767 FAS. 1S. 2h3..7 ; BYTE COUNTS FOR ABTBL 
4626 067554 033 133 071 HORA: BYTE 33,1535,71.60,60, : ABSOLUTE 3 INCHES IN P 
4627 067562 033 133 061 HORB: BYTE 33,133,61,60.65,60,140 3 3 1/72 
4628 067571 033 133 061 WHORC: BYTE 33, 1 e ® # * t 140 3 4 
4629 067600 033 133 061 HORD: BYTE 33.,1335.61,63,.65,60,140 : 4 1/2 
4630 067607 033 135 061 HORE; BYTE 33,133,61,62,60,60, 140, 35,155.65.60,60,141 ; ABSOLUTE TO 4& THEN REL 
4631 067624 0335 133 061 HORF: -BYTE 33,133,61.63,65,60,140,33,133,63.60,60,141 3 4 1/2 
4632 067641 033 133 061 HORG: BYTE 33,133,61,65,60,60, 140, 33,133,.63.60,60.141 3 b=) 
pes 067656 egaunn 133 061 god BYTE 33,133,61,71,.65.60,140 ; ABSOLUTE TO 6 1/2 
-cV 

4635 067666 067734 066542 003115 IDVEC: .WORD VER7,SECS,OUTBUF +1, VERS.5,HORS, SELPIX, VECO]. SELDEC OVTBUF+10,0 ; TBL FC 
4636 067712 000007 000012 000001 IDVCNT: .WORD 7,10.,1.7,7,5.155..5.1 ; BYTE COUNTS FOR IDVEC 
4637 067734 033 133 065 VER7; BYTE 33,133,.65,60,64,60, 144 ; VERTICAL TO 7? INCHES — 
4638 067743 033. 133 066 VERS.5: .BYTE 33,1 133,66,61,62.60, 144 ; VERTICAL TO 8.5 INCHES 


4639 067752 033 133 062 HORS; BYTE 33, 133,62, 61,64,62,140 ; MOVE TO JUST LESS THAN 
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070202 


070212 
070222 
070232 
070242 


070252 
070252 
070252 
070254 


070254 


104401 


10-APR-84 08:55 


ONMAC X24.07-563 
135 060 
062 062 
135 060 
062 062 
133 061 

060 
i135 061 
060 060 
133 061 
060 
133 061 
060 060 
133 061 
060 

070232 070242 
133 062 
1335 063 
135 064 


E1O 


4 09:07 P 6- 
PORTRATT EST _ — 
VECOL: BYTE 33,133,60, 73,67,65,60, 7 ® 
-BYTE 61,62,62,60,73,62,60,41,174 
-BYTE 33,133,60,73,67,65,60,73, 
BYTE 61,62,62,60,73,62,60,41,174 
BYTE 33,13 .61,7 .67,6 ,60,753, 
.BYTE 63,60,60,73,62,60,41,174 
BYTE 35,155,61,75,61,60,65,60 
-BYTE 63,60,60,73,62,60,41,174 
-BYTE 33,155,61,735,61,63,65,60 
BYTE 63,60,60,73,62,60,41,174 
-BYTE 33,133,61,73,61,66,65,60 
BYTE 33,13 -61,7 -61,71,65,60 
— -<BYTE 63,60,60,73,62,60,41,174 
LNOITB: . 4, HORS ,HOR6,O 
HOR4 : BYTE 33,133,62,70,66,62,140,116 
HORS : BYTE 33,1335,63,65,70,62,140,60 
HORE : .BYTE 33,1335, 64 ,63,60,62,140,61 
-EVEN 
.LIST BEX 
ENDTST 
L10031: 
TRAP CSsETST 
ENDMOD 
.SBTTL FONT TEST 


sMODULE FONT.P11 


30° 
; 


BGNMOD 


FUNCTIONAL DESCRIPTION 


3,62,63,70,60,73 
33° -66,70,60,73 
62 ,64,60,60,753 
»73,62,64,60,60, 73 
»73,62,64,00,60,73 
» 73,62,64,60,60,73 
» 13,62,64,60,60, 73 


SEG 9121 


SFEQS FOR DRAWING RECT 
TOP HORIZONTAL LINE 


BOTTOM HORIZONTAL INE 
ist VERTICAL BA 
3RD . 
4TH " 

STH - 
bn TO POSITION AND 


TO JUST LESS THAN 
MOVE TO JUST LESS THAN 


; THE “FONTS TEST” IS A COMPREHENSIVE TEST OF THE FOLLOWING FUNCTIONS WHICH 
sARE ASSOCIATED WITH MULTIPLE FONT USE ON THE LNO1 ELECTRONIC PRINTER: 


SRE - ASSIGNING AND SELECTING OF FONTS. 


1- FONT LOADING 

2- FONT ASSIGNMENT 
3- FONT SELECTION 
4- OTHER 


LOADING WILL BE TESTEO BY DOWNLINE LOADING A PREDESIGNED SET OF 


FONT 
— wice ge THEN BE ASSIGNED, SELECTED AND SUBSEQUENTLY PRINTE 


0. 
ASSIGNMENT WILL BE TESTEO BY AN EXHAUSTIVE SERIES OF ASSIGNING, 


THE FONTS WILL THEN BE PRINTED 
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his VERIFY THE ASSIGNMENTS. 
3- FONT SELECTION WILL BE TESTED mM Py SERIES OF SELECTIONS OF SPECIFIC 
? ONTS IN SUCH A MANNER AS TO GUARANTEE THAT ANY FONT ASSIGNED 
3A thie oy LOGICAL FONT NUMBER CAN BE SELECTED AND SUBSEQUENTLY PRINTED. 
- OTHER STATEO SPECIFIC FUNCTIONS WILL ALSO BE CHECKED FOR DESIRED RESULT. 
ONE SUCH EXAMPLE WOULD BE IF THE yt WAS PRINTING FROM THE DEFAULT 
; LANDSCAPE FONT AND WAS IN THE MIDDLE OF A PAGE WHEN A FONT SELECTION SEQUENCE 
sWAS RECEIVED TO SELECT THE RESIDENT PORTRAIT FONT. THE DESIRED RESULT IS THAT 
;THE CURRENT PAGE WOULD BE TERMINATED AND THAT A NEW PAGE WOULD SEGIN USING THE NEW 
;ORIENTATION. AND VICE VERSA. 
; -—- 


SEQ 0122 


: GLOBALS REFERENCED: 
: MESSAGES, VARIABLES, SUBROUTINES 
; REINIT 
.REPT 0 
POL 
BEGIN ROUTINE FONT 
; PART: 1 DEFAULT SELECTION 
: RESET PRINTER 
: ASSIGN PORTRAIT RESIDENT FONT TO LOGICAL #10 AND ¢11 
: SELECT LOGICAL FONT #11 
RESET PRINTE ; SHOULD ASSIGN DEFAULT 


PRINT TEST ib 
SKIP A LINE 
aT a DEFAULT MESSAGE 
WHILE (R3) NOT EQUAL TO O DO 
SEND BEGINNING OF SELECT SEQUENCE 
SEND THE P TER 


SEND END OF SELECT SEQUENCE 
SEND BEGINNING OF FONT ID MESSAGE 


3 EQUAL NSELTB ; FONT NUMBER TABLE 


SEND (R3)- ; CORRECT FONT NUMBER FR 
pane: SEND REST OF FONT IO MESSAGE 
SEND BELOW SEQUENCE ; ATTEMPTS TO SELECT Iit 
SEND ABOVE SE ; “ “ 
SEND COMMEN MESSAGE ; IDENTIFIES PREVIOUS 2 
SEND END e PART 1 MESSAGE 
FORM F 
PART: 2 ASSIGNING OF RESIDENT FONTS 
RESET PRINTER 
:; SELECT SIZE UNIT AS DECIPOINTS 
: TOGGLE PAPER OFFSET 
: LET RS EQUAL EVENTS ; TABLE OF EVEN PARAMETERS FOR F 
: LET R4& EQUAL OOOTB ere O00 : 
: WHILE (R3) NOT EQUAL TO 0 DO 
: SEND ASBGIN : BEGINNING OF ASSIGNMENT SEQUEN 
: SEND (R3)- : SEND THE FONT NUMBER FROM TABL 
SEND ASENDP ; END OF ASSIGNMENT SEQUENCE 
: SEND ASBGIN ; BEGINNING OF ASSIGNMENT SEQUEN 
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SEND (R4)- 
SEND ASENDL 
ENODO 


LET RS EQUAL EVENTB 

LET R4 EQUAL ODDTB 

SEND SEQEVE 

WHILE (R35) NOT EQUAL TO O DO 
LBGN 


SEND SE 
SEND (R3)> 
SEND SELEND 
SEND PORFON 
ENDDO 
SEND SEL1i1 
SENO NEW PAGE MESSAGE 
SEND SEQODD 
WHILE (R4&) NOT EQUAL TO O DO 
SEND SELBGN 


RESET PRINTER 

SELECT SIZE UNIT AS DECIPOINTS 

TOGGLE PAPER OFFSET 

PART: 3 FONT LOAD SECTION 

SEND @6GNLO 

LET R3 EQUAL RECTBO 

WHILE (RS) NOT EQUAL O DO 
SEND (R3)> 

ENOOO 

LET R3 EQUAL RECTBL 

WHILE (R3) NOT EQUAL O DO 
SEND (R3)- 


ENDOO 

LET R3 EQUAL RECTBA 

WHILE (R3) NOT — 0 DO 
SEND (R3)+ 


LET R3 EQUAL RECTBB 
WHILE *(R3) NOT EQUAL 0 00 
SEND (R3)+ 


SEND ENDLD 

RESET PRINTER 

SELECT SIZE UNIT AS DECIPOINTS 
TOGGLE PAPER OFFSET 


LET RS EQUAL DIAGTB 
WHILE (R35) NOT i 0 00 
SEND (RS 


ENODO 
INCREMENT COUNT FROM 1 TO 3 SY 1 
SEND OUTBUF 2 CHARACTERS, 12 TIMES 


SEQ 0123 


SEND FONT NUMBER FROM TABLE 
END OF ASSIGNMENT SEQUENCE 


SEQUENTIAL EVEN SELECTIONS FRO 


BEGINNING OF SELECTION SEQUENC 
FONT NUMBER FROM EVEN TABLE 
END OF SELECT SEQUENCE 
IDENTIFIES FONT AS PORTRAIT 


SELECTS LOGICAL FONT #11 (NOW 
SEQUENTIAL ODD SELECTONS 
BEGINNING OF SELECT es 
FONT NUMBER FROM ODD T 

END OF SELECT SEQUENCE 
IDENTIFIES FONT AS LANDSCAPE 


END OF SECTION AND PAGE MESSAG 


BEGINNING OF LOAD SEG 
SET UP RECORD TABLE 


SEND RECORD IN PARTS 
SET UP RECORD TABLE 


SEND RECORD IN PARTS 
SET UP NEXT REC TABLE 


SEND RECORD IN PARTS 
SET UP NEXT REC TABLE 


SEND RECORD IN PARTS 
END OF LOAD SEQ 
CHECK TO SEE IF RESET DESTROYS 


TABLE OF DIAG FONT ASSIGNMENT 
DO FOR EACH ENTRY 
ASSIGN DIAG FONT AND SELECT IT 


PRINT A LINE OF ALTERNATING LI 


H1O 
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4808 : DO CARRIAGE RETURN AND LINE FEED 
4809 , SEND OUTBUF +1, 2 CHARACTERS, 12 TIMES ; PRINT A LINE OF ALTERNATING DA 
4810 . DO CARRIAGE RETURN AND LINE FEED 
4811 : 
4812 ; 00 FORM F 
481% ; RESET PRINTER 
agi : SELECT SIZE UNIT AS DECIPOINTS 
481 : 
4816 END ROUTINE FONT 
4817 ~ENDR 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
A827 
4828 070254 BGNTST 19. 
ante 070254 T19:: 
can 3 RESIDENT SECTION (CUSING RESIDENT FONTS ONLY) 
3 
pres , PART 1 SELECTION DEFAULTS 
4834 PART 1 FIRST GUARANTEES THAT, ON RESET OF THE MACHINE (RIS SEQUENCE). 
4835 :;THE DEFAULT POWER-UP FONT IS SELECTED FOR PRINTING. 
4836 SPART 1 NEXT CHECKS TO SEE IF ATTEMPTS TO SELECT UNASSIGNED 
4837 sLEGAL LOGICAL FONT NUMBERS ARE IGNORED. 
4838 sIT NEXT CHECKS TO SEE IF ATTEMPTS TO SELECT ILLEGAL LOGICAL FONT NUMBERS 
4839 ;C ABOVE OR BELOW LEGAL RANGE) ARE IGNORED. 
4840 070254 OUTPUT @REINIT, 62 ; RESET PRINTER TO ALL DEFAULT CONDITIONS 
4841 070316 OUTPUT @SELDEC,e5 ; SELECT DECIPOINTS AS SIZE UNIT 
4842 070360 OUTPUT #DECFIN, &5S 3: TOGGLE PAPER OFFSET 
4843 070422 OUTPUT oF ONTST. #19. ; TEST IO AND TWO LF’S 
4844 070464 OUTPUT @ASSDIA, : ASSIGN DIAGNOSTIC FONT TO LOGICAL FONT ¢10 
4845 070526 OUTPUT OASDIAL. 020. : e11 
4846 070570 OUTPUT @SEL11.¢5 ; SELECT PORTRAIT FONT (LOG NUMBER 11) 
4847 070632 OUTPUT @REINIT, @2 | SHOULD REASSIGN @10 TO DEFAULT CLANDSCAPE) AND SELECT 
4848 070674 OUTPUT @SELDEC, 65 ; SELECT DECIPOINTS AS SIZE UNIT 
4849 070736 OUTPUT oF ONDEMES #50. 3; PRINT DEFAULT MESSAGE 
4850 071000 LET R3 :* ONSELT ; FONT NUMBER IN MESSAGE TABLE 
(4) 071000 012703 074070 MOV eNSEL TB. R3 
4851 071004 WHILE (R3) NE 80 DO ; DO FOR EACH ENTRY SEQ TABLE 
(4) 071004 505228: | 
(6) 071004 005713 TST (R3) 
(8) 071006 001002 BNE 6 
(9) 071010 000137 071326 IMP . 
4852 071014 OUTPUT @SELBGN, 62 ; BEGINNING OF SELECT SEQUENCE 
4853 071056 OUTPUT (R35), 62 ; OUTPUT THE PARAMETER 
4854 071116 OUTPUT @SELEND, 61 ; FINAL CHAR. FOR SELECT SEQ. 
4855 071160 OUTPUT @FONSLA. O14. ; BEGINNING OF FONT ID MES 
4856 071222 OUTPUT (A3)0.08 ; OUTPUT THE CORRECT FONT NUMBER FOR MESSAGE 
4857 071262 OUTPUT @FONSLB, 05 ; REST OF FONT NUMBER ID MESSAGE 
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A858 071324 ENDDO 
(3) 071324 000627 AR 50522 
(3) 071326 505238: 
4859 071326 OUTPUT @BELOW, 056. 3 ATTEMPTS TO SELECT NUMBER BELOW RANGE 
4860 071370 OUTPUT @ABOVE, 057. : ABOVE 
4861 071432 OUTPUT @COMMEN, 056. ; MESSAGE IDENTIFYING 2 PREVIOUS LINES AS LANDSCAPE 
4862 071474 OUTPUT OPRTEN! . 629. ; END OF PART 1 MESSAGE + LF AND F 
4805 i 
4864 FSSSHHSAHASHSASEASEEASEOEEEEAESEESESEEESEEEEEEESEEEOEEEEEEEEEEEEEEEEEEEEEEEEEEEREOEESSE 
1865 : PART 2 ASSIGNING OF RESIDENT FONTS 
486¢ ; 
4867 ;OUTPUT @REINIT, @2 ; START THIS PART FRESH FROM RESET CONDITION 
4868 ;OUTPUT @SELDEC,¢5 s SELECT DECIPOINTS AS SIZE UNIT 
4869 sOUTPUT @DECFIN, 05 
4870 ;LET R3 := SEVENTB ; TABLE OF EVEN PARAMS FOR ASSIGNMENT SEQS 
4871 ;LET R4 := @OODTB $ of " ad . 
4872 ;WHILE (R3) NE #0 DO s ASSIGNS BOTH EVEN AND ODD NUMBERS 
4873 : OUTPUT @ASBGIN, 04 3 BEGINNING OF ASSIGNMENT SEQ 
4874 : OUTPUT (R3)+,@2 ; EVEN PARAM FOR SEQ 
4875 : OUTPUT @ASENDP 014. s END OF SEQ ASSIGNING PORTRAIT TO EVEN © 
4876 ; OUTPUT @ASBGIN, ; BEGINNING OF ASSIGNMENT SEQ 
4877 ; OUTPUT (R4)+,%2 s ODD PARAM 
4878 i. OUTPUT @ASENDL , #20. ; END OF SEQ ASSIGNING LANDSCAPE TO ODD ¢ 
4879 ;ENDDO 
4880 sLET R3 := SEVENTB ; TABLE OF EVEN PARAMS 
4881 ;LE 22 T8 ; “ 000 ” 
4882 sOUTPUT @SEGEVE, #415. s SEQUENTIAL EVEN SELECTIONS FROM 16-12 
4883 sWHILE (R3) NE @0 DO s NOW SELECT EVEN INDIVIDUALLY AND IDENTIFY 
4884 ; OUTPUT @SELBGN, #2 s BEGINNING OF SELECTION SEQUENCE 
4885 : OUTPUT (R3)+,¢2 ; EVEN NUMBERED PARAMS 
4886 : OUTPUT @SELEND, ¢1 : FINAL CHAR OF SELECT ESC SEQUENCE 
4887 3 OUTPUT @PORFON, 047. 3; IDENTIFIES THIS FONT AS PORTRAIT 
4888 sENDDO 
4889 sOUTPUT @PGEND, #17. : END OF PAGE MESSAGE 
4890 sOUTPUT #SEL11,¢5 3; SELECTS LOG ee #11 (LANDSCAPE NOW) 
4891 ;0UTPUT @NEWPG, ‘ ; IDENTIFY NEW PAGE 
4892 sOUTPUT #SEQGODD,. #20. 3 SEQUENTIAL SELECTION OF ODD NUMBERS 
4893 ;WHILE (R4) NE €0 DO : NOW SELECT THE ODD NUMBERS INDIVIDUALLY AND IDENTIFY 
4894 3 OUTPUT eSELOGN, #2 3; BEGINNING oF SELECT SEQUENCE 
4895 F OUTPUT CR4)+,02 ; OOD NUMBERED PARAMS 
4896 3 OUTPUT @SELEND, ¢1 ; FINAL CHAR OF ESC SEQUENCE 
ped one OUTPUT SLANFON, 047. : IDENTIFIES THIS FONT AS DEFAULT LANDSCAPE 
4899 OUTPUT OPRTEN2’, #29. : END OF PART MESSAGE AND FF 
4900 3 OUTPUT OREINIT, 02 ; RESET PRINTER 
490i sOUTPUT @SELDEC,¢5 3 SELECT DECIPOINTS AS SIZE UNIT 
4902 sOUTPUT @DECFIN, ¢5 ; TOGGLE PAPER OFFSET 
4903 s OROOHEOHEDEEEREDEESESOOERESAEASSEESEEEASEHESASHAASEHAEHASSEASEAASEEAESESESEESEEEEE 
4904 ; 
4905 Q 
pe a ; PART 3 “FONT LOAD SECTION” 
a * 
4908 071536 LET OUTBUF ;:B= 040 ; CODE FOR 1ST CHAR IN DIAG * ONT 
(4) 071536 112737 000040 003i14 MOVB me iw 
4909 071544 LET OUTBUF +1 :B6= 04 "eee 2N0 


(4) 071544 112737 000041 003115 MOVB 641, *OUTBUF « 1 
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012705 


08: 


000040 
000015 


074216 


074260 


074322 
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TEST 

LET OUTBUF +2 :B= 
LET OUTBUF +3 :B= 
LET QUTBUF +4 :B= 
LET OUTBUF 5 
MOVB 


OUTPUT @BGNLD, 06. 
LET RS := @RECTBO 


040. Coureur 2 
015 
eel +3 

Se» ateaead od 

#14 ,OUTBUF +5 


MOV ORECTBO,RS 
WHILE (R3) NE #0 DO 
505248; 
TST CR3) 
BNE . +6 
JMP 50525% 
OUTPUT (R3)+, 0128. 
JSR PC, QUIET 
ENDDO 
505248 
505258: 
LET RS := @RECTBL 
RECTBL RS 
WHILE (R3) NE @0 DO 
505268: 
TST CR3) 
BNE . 6 
JMP 50527 
OUTPUT (R3)+, 0128. 
JSR PC, QUIET 
ENDDO 
50526% 
505278: 
LET RS := @RECTBA 
@RECTBA,RS 
WHILE (RS) NE @0 00 
50530%: 
TST ~ €R3) 
‘BNE ‘ee 
JMP $0531$ 
OuTPUT rs elas. 
JSR PC, QUIET 
ENDDO : 
505308 
50531$%: 
LET RS := @RECTEB 
ORECTBB.RS 
WHILE (R3) NE €0 DO 
50532$: 
TST (R3) 
BNE . * 
JMP 50535358 
OUTPUT (CR3)+, 4128. 
JSR PC, QUIET 
ENDDO 


BR 505528 


. 1ST 


FF 


BEGINNING OF LOAD SEQ 
SET UP RECORD TABLE 


SEND RECORD IN PARTS 


SET UP RECORD TABLE 


SEND RECORD IN PARTS 


SET UP NEXT REC TABLE 


SEND RECORD IN PARTS 


SET UP NEXT REC TABLE 


SEND RECORD IN PARTS 


SEQ 0126 
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012705 
012704 


012737 
000402 


005237 
023727 
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074364 
074514 


072754 


000001 


002276 
002276 
072752 


005306 


002276 


000002 
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505333: 
OUTPUT @€ 
OUTPUT @REINIT, 02 
OUTPUT @SELDEC, #5 
OUTPUT @DECFIN, #5 
LET R3 : 


V @DIAGTB,R3 
LET R4 := @DIA 
MOV @DIAGX ,R4 
WHILE (R3) NE #0 DO 
50534$: 
TST (R3) 
BNE .*6 
JMP 50535$ 
OUTPUT po Cae og 
INCR COUNT FRO 01 TO #2 BY #1 
MOV #1 ,COUNT 
BR 50537$ 
505365: 
INC COUNT 
505378: 
CMP COUNT , #2 
BLE 50540$ 
JMP 50541% 
50540$ 
OUTPUT #OUTBUF ,@2,,@i2. 
OUTPUT @OUTBUF + 
OUTPUT @OUTBUF +1,02,.,.¢12 
OUTPUT SOUTBUF +3, 
JSR PC QUIET 
ENDINC 
RR 505368 
505415: 
ENDDO 
50534$ 
505358: 


OUTPUT @OUTBUF «5,01 
OUTPUT @REINIT, 02 
OUTPUT @SELDEC, 05 
JSR PC QUIET 


EXIT TST 3 
TRAP CsExiT 
. WORD L10032-. 


SEQ 0127 


END OF LOAD SEQ 
CHECK TO SEE IF RESET rade ah FONTS L 
SELECT DECIPOINTS AS PARAMETE 
OGGLE PAPER OFFSET 
TABLE OF DIAG FONT ASSIGNMENT AND SELE 


; DO FOR EACH ENTRY 


3; ASSIGN DIAGX AND SELECT IT FOR TITLES 
; ASSIGN DIAG FONT AND SELECT IT 


; PRINT ONLY TWO LINE (262-4 AS TOTAL OF LIN 


— A LINE OF ALTERNATING LI 
PRINT A LINE OF ALTERNATING DA 
CRLF 


i 
; RESET TO DEFAULT FONT 
; SELECT DECIPOINTS AS SIZE UNIT 


-NLIST BEX 

3 LOCAL VARIABLES. TABLES, MESSAGES 

FONTST: .ASCII <33>/(10mFONT TEST 19/<12><12> 

FONDEMES : -ASCII /DEFAULT FONT PRINTED - SHOULD BE DEFAULT POWER-UP/<12> ; IDENTT 
FONSLA: .ASCII /LOGICAL FONT @/ ; BEGINN 
FONSLB: .ASCII /SELECTED - DEFAULT POWER-UP FONT SHOULD BE PRINTED/<1l2> ; END OF 
NEWPG: .ASCII /THIS SHOULD BE TOP LINE OF NEW PAGE/<1l2> ; 36 CHA 
ASSDIA: .ASCII <33>/P1;10/<175>/DIAGOOO/<35>/\/ ; ASSIGN 
ASOTA1: .ASCII <33>/P1311/<175>/DIAGOO 1/<33>/\/ ; ASSIGN 


SEL11: .ASCII <33>/(11m/ 


; SELECTS LOGICAL FONT 11 
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StNAD PLT “GO -APR-84 90-58 FONT Te Or PERS 6-ite SEQ 0126 
4969 073451 033 033533 040555 BELOW: .ASCII <33>/{7mATTEMPTING TO SELETT FONT NUMBER BELOW LEGAL RANGE./<12> 

4970 073541 033 031133 066460 ABOVE: ASCII <33>/[20mATTEMPTING TO SELECT FONT NUMBER ABOVE LEGAL RANGE ./<12> 

4971 073632 051120 041505 042105 COMMEN: [ASCII /PRECEDING TWO LINES SHOULD GE THE DEFAULT POWER-UP FONT/<12> 

4972 073722 047105 020104 043117 PGEND: ASCII /END OF THIS PAGE/<12> 

4973 073743 105 042116 047440 PRTEN1: ASCII /END OF PART 1 AND THIS PAGE/<12><14> 

4974 ; PRTEN2 .ASCII /END OF PART 2 AND THIS PAGE/<12><14> 

4975 ; LANFON : “ASCII /THIS LINE SHOULD BE THE DEFAULT LANDSCAPE FONT/<12> 

4976 ;PORFON: “ASCII /THIS LINE SHOULD BE THE RESIDENT PORTRAIT FONT/<1>> 

4977 ; ASSLAN: “ASCII <33>/P1;10/<175>/DELandscape13 .6-8/<33>/\/ ASSIGN 
4978 074000 055433 033061 015555 SEQEVE: .ASCII <33>/[16m/<33>/[ 14m/<33>/[ Lom/ 5 SEQUENTIAL SELECTION 0 
4979 074017 033 030533 066467 SEQODD: .ASCII <33>/[17?m/<33>/{ 15m/<33>/[ 13m/<33>/[ Lim/ ; 

4980 074043 oracss 030533 066466 SEGALL : “ASCII << 33>/[ 16m/<33>/( 15m/<33>/[ 14m/<33>/[ 13m/ ; " “ 

4982 074070 074416 074421 074424 NSELTB: .WORD ASSI12,ASSI13,ASSI14,ASSI15,ASSI16,ASSI17.0 

4983 074106 074410 074413 074416 ASSTBL: .WORD ASSI10,ASSI11,ASSI12. ASSI13,ASSI14., ASsI15 ASSII6. -ASSIA7, 0 TABLE 
4984 074130 074410 074416 074424 EVENTS: .WORD ASSI10,ASSI12.ASSI14 0 TABLE OF EVEN PARAME TE 
4985 074142 074413 074421 074427 ODDTB: .WORD ASSI11,ASSI13. ASsI15. ASSI17.0 OOD 

4986 074154 075014 076014 076214 RECTBO: .WORD RECO, i ‘ 4,RECS, REC6 »REC7 RECS RECS, RECiO, REC11.RECi2, REC13,REC 
4987 074216 075214 076014 076214 RECTBL: .WORD C1. : : C5, REC6,REC7. RECS ,.REC9.REC1O.REC11.REC12,REC13 REC 
4988 074260 075414 076014 076214 RECTBA: .WORD C1iA,REC ,RECS, RECS, RECS ,RECE, REC7 ,RECS ,REC9,REC10,REC11.REC12,.REC13.RE 
4989 074322 075614 076014 076214 CT6B: .WORD REC1B.RECe2, 3,REC4 RECS, C6. C7,P&C8,REC9,REC10,REC11,REC1I2. REC1L3.RE 
4990 074364 074616 074643 074670 DIAGTB: .WORD OIAGI2,DIAGi3, DIAG14 ,OIAGIS, DIAG16,0IAG17,0 ; ASSIGNS AND SELECTS LO 
4991 074402 050033 035461 ASBGIN: .ASCII <33>/Pi; ; BEGINNING OF ASSIGNMEN 
4992 074406 055433 SELBGN: .ASCII <33>/{/ ; BEGINNING OF SELECTION 
4993 074410 030061 040 ASSI10: .ASCII /10 / 

4994 074413 061 020061 ASSI11: .ASCII /il / 

4995 074416 031061 040 ASSI12: .ASCII /12 / 

4996 074421 061 020063 ASSI13: .ASCII /13 / 

4997 074424 032061 040 ASSI14: .ASCII /14 / 

4998 074427 061 020065 ASSI1S: .ASCII /15 / 

4999 074432 033061 040 ASSI16: .ASCII /16 / 

5000 074435 061 020067 ASSIL7: .ASCII /17 / 

5001 074440 042175 052105 072151 ASENDP: .ASCII <175>/DETi tan10-R/<33>/\/ ; END OF ASSIGNM 
5002 074456 042175 046105 067141 ASENOL: .ASCIT <175> >/DELandecape13.6-8/<33>/\/ ; 

5003 074502 155 SELEND: .ASCII ; END OF SELECTION SEQUE 
5004 074503 033 120 061 ®BGNLD: .BYTE 33. 120,61,73,61,171 ; FIRST PART OF FONT LOAD SEG 
5005 074511 073 033 134 ENDLD: .BYTE 73.38. 134 ; LAST 

5006 ST AGK. WORD. Of » DIAGL DIAGS DIAGS DIAGO DIAGL.O sess esses 

5007 074514 074532 074547 074564 DIAGX: . AG2 ,.OIAGS ,OIAGO,DIAG1.0 ; FONT BEING SELECTED TO 
5008 074532 055433 030461 042155 DIAGO: .ASCII IAGO, DIAG! IAGO00/< 12> 

5009 074547 03 030533 OIAGi1: .ASCII <«<33>/{i1imDIAGOOIL/<12> 

5010 074564 055433 030461 042155 DIAG2: .ASCII <33>/{1imDIAGOO2/<12> 

5011 074601 033 030533 066461 DIAG3: .ASCII <33>/{11mDIAGOO3/<12> 

5012 POP PPP PPR EP EEC EESERP EPEC ER SEP ER ERE REPEL ER EERE EERE SE RE SEC CSS CSS SESE SSS S ESS SS: 

5013 074616 033 120 061 OIAGI2: .BYTE  33,120,61,73,61,62.175,104,111,101,107 ; SEQS TO ASSIGN AND SELECT DIAG 
5014 074631 060 060 060 BYTE 60,60,60,33,.134,.33.135, 1,62,155 

5015 074643 033 120 061 OIAGI3: BYTE 33,120.61, 73,61,63,175,104,111,101,107 ; SEQ@S TO ASSIGN AND SELECT DIAG 
5016 074656 060 060 061 BYTE 60,60,61,33,134,33,133,61.63.155 ; 

5017 074670 033 120 061 DIAGI4: .BYTE 33,120,61,73,61,64,175,104,111,101,107 ; SEQ@S TO ASSIGN AND SELECT CIAG 
5018 074703 060 060 062 “BYTE  60,60,62,33,134,33,133,61,64,155 

5020 074730 060 060 063 ‘BYTE 60,60,63,33,134,33,133,61,65,155 

5021 074742 033 120 061 DIAGI6: BYTE 33,120,61,73,61,66,175,104,111,101,107 ; SEQS TO ASSIGN AND SELECT DIAG 
5022 074755 060 060 060 BYTE  60,60,60, 33,134, 33,133,61,66,155 

5023 074767 033 120 061 OIAGI7: .BYTE 33,120.61, 73,61.67.175,104,111,101,107 ; SEQ@S TO ASSIGN AND SELECT DIAG 
5024 075002 060 060 061 BYTE 60,60,61, 33,134, 33,133,61,67,155 
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OIMAG X24 .07- ~365,. 9-4 “eR, “aa 09:07 PAGE 6-113 SEQ 0129 
040147 062477 RECO: -ASCII /iig@?e_CPCdaPr7oKA?_GA?_GA?_GA?_GA??7777777777D27S7?_GO/ S4c¢ 
037477 037477 -ASCII /7?? 2978h298272272229022022272227227222722722722722292222292272227227777 
040147 062477 REC1: -ASCII /i ig8?e_CPCdaPr 7?oKQ?_GA?_GA?_GA?_GA??7777777777D0727S?7?_GO/ 54 cha 
037477 037477 SCII /?? pr7Danengna27e72922292229222972222222222222227229222292222222222227? 
040147 062477 RECIA: ASCII /ii Cc @?_GA?_GA?_GA?_GA?7777777777D7? 
037477 037477 SCII /?? 2978h250070272028072022292279277227902202929902990227927927997227977 
040147 062477 REC1B: ASCII /ii e_CPCc r?0Ka?_GA?_GA?_GA?_GA???77777777 7877? 
037477 037477 SCII /?? 222372727222922292279222322292222222222927277277972722222227 927222 0> 
037477 037477 REC: ASCII £22727227272227222722272722222272727277277727272722272727272222722722777272272727 
037477 037477 ScII ia eeteseeeaaecs Sete e ties seee teens cee ceLeCenEac ee ES Ueeaee Fess 279792 
037477 037477 RECS: ASCII £27227272727277727227272222227222227222727272277222772272727227272277272727 
037477 037477 SscII 122992222222222222222222222522722 9927222992227 299727 722222222222 7227772? 
037477 037477 REC4: ASCII /277722722727222727277277227772? 2G20?F /<176>/ F _LA?t/¢173>/€27E0772272227272727/ 
037477 037477 sASCIL = £2727272727222222272727222227227272722222222272222722222272222222222272 2222222222722? 
037477 037477 RECS: ASCII £227272227227222227272N/<176>/072772277 28/<176><176><176><1735>/2222277272F /<17 
077176 077176 -ASCII /2N/<176><176><176><176><176>/w?2?7272772N/<176><176><176><17€><176><176>/_? 
037477 037477 ASCII <175>/22222?8/<176><176><173>/2F /<176><176>/022222/<176><176>/0??2N/<176>< 
037477 037477 RECE6: ASCII <176>/_2777278/<176>/_722F /<176>/w?2?7278/<176>/022728/<176><175>/222722t/<173 
037477 041077 ASCIL <173>/272277B/<176>/_2222/¢176><176>/2227227/<176>/w?222N/<176>/02?2 2N/<175> 
037477 037477 ASCII <176>¢176>/7227227/<176>/w?2?? 2N/<176>/027772N/<175> 
037477 077102 REC?7: .ASCIT tT MA rsctsaesttae 2222/<176><176>/2272272/<176><174>/2727272N/<1 
037573 037477 ASCII <¢<176>¢173>/27778/<176>/o0/ 
040077 077176 ASCII /27778/<176><176>/2227221/<175>/22227t/<176>/_27222F /<176>/_222N/<176>/w???? 
037477 077100 ASCII ¢<176>/0?778/<176><176>/2277277B/<176><176>/_28/<176><176>/02/ 
037477 077176 REC8: ASCII /27277/<176><176><176>/_8/<176><176><173>/22222F /<176><176><176><176><1765 
077176 037537 ASCII ¢176>¢176>¢176><176>/_27222N/<176><176><176><176><176><176>/02?/ 
037477 077176 ASCII /22722/¢176><176><176><176><176><176>/ _2222228/<176><176><176><176><176>/ 
037477 037477 sASCII /£2722722222227<176>€176>/_22722227272222222222722222222/ 
037477 037477 RECS: ASCII «£2222227272272272227222222222222222227222222222222221/<176><176><176><176><17 
037477 043077 ASCII <176>/_272727F /<176><176><176><176><176><176><176><176>/u??28/<176><176><17 
037477 077136 ASCII /27227%7<176><176><176><176><176><176><176><176>/_2?22F /<176><176><176><17 
077176 077176 ASCII <176><176><176><176><176><176><176><175>/2227t/<176> 
077176 077176 REC10: .ASCII <176><176><176><176><176><176><176>/_2?2?F /<176><176><176><176><176><176> 
037477 037477 ASCII £22272222222 2F /<176><173>/2222222222/ 
057576 037477 ASCII /8/¢176><176>/_ 222272222 28/<176><176><173>/2222222222/<176><176><176>/_?? 
057576 037477 ASCII <¢176>/F/¢176>/_ 2222222 2F /<176>/0/<176><173>/222/ 
037477 041077 RECi1: .ASCII /2227778/<176>/wF/<176>/_2272722228/¢176><173>/2/¢176><173>/22222222/<175>< 
037573 037477 ASCII ¢176><173>/222/ 
037477 077116 ASCII /£7722N/¢<176>/_?F /<176>/_222222F /<176>/022/<176><173>/222222B/<176>/02 25 / 
037573 037477 ASCII = <176>¢173>/222222/¢176><175>/222F /<176>/_222228/<176>/22/ 
075576 037477 REC1i2: .ASCII /277/¢176><1735>/227222N/<176>/_222F /<176>/_2222F /<176>/02222/<176><173>/?? 
037573 037477 ASCII <176>¢<173>/772?/ 
075576 037477 ASCII /2727/7¢176>¢173>/22272N/<175>/ 2222 2F /<176>/2222B/<176>/ 222222/<176> 
124 052124 ASCII /S_DTTTTVITTTT22222727227222222272222222222222272227 
037477 037477 RECL3: ASCII /P22277772 7727272277 P7 PL ILLPALIIIPL AI IPP LIVI e I P2P P2222 2/ 
037477 037477 TI 12722222222 P P22 PAP 2 PP IPP P22 tke eek kkk kkk 2 2822222 222 222 2222222222 
037477 037477 REC14: ASCII £277727272272727222 2222 22222227 222222222222 22 2222 2222222222227 
037477 037477 ASCII  £22722227272272727227 22222222 22222222 ek 2k e 2 22 222 2222 2222 222222222222? 
037477 037477 REC15: ASCII £27272727272272222272222222222 2222222272222 222227222222222222227 
037477 037477 SCI 42222222222 222222288 ake 82222 222222 22222 222 22222222222? 
037477 037477 REC16: ASCII £272727272727222222 22722222 P PoP e822 eee e222 22 222222222222 22227 
037477 037477 ay scr 4222222227222 2 28882 k keke ee 2228282222222 2 22 222222222222 
LIST BEX 
NOTST 
L10032 
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(3) 101614 104401 TRAP CsETST 
5080 101616 ENDMOD 


508 1 wn qqacannceqeneet eens 


S082 . sauansnetl sqqeaereen@* 


5093 -SBTTL MISCELANEOUS CONTROL FUNCTIONS TEST 
5094 ;sMODULE MISCON.P11 


5 
aoe 101616 BGNMOD 


5098 3e¢ 
5099 : FUNCTIONAL DESCRIPTION 


3 
5101 3 THE MISCELANEOUS CONTROL FUNCTIONS TEST WAS CREATED FOR USE ON 
5102 ;THE LNO1 PRINTER. IT IS A COMPILATION OF SUBTESTS THAT ARE SHORT IN 
5103 ;DURATION AND DO NOT REQUIRE A SEPARATE TEST ALL OF THERE OWN. THE 
5104 hiteniae ee THAT ARE Led = AS FOLLOWS: 


“C. " CHAR 
3106 : 2: “SUBSTITUTE” CHARACTE 
3107 ; 3: USE OF CONTROL CHARACTERS INSIDE ESCAPE AND CONTRL SEQUENCES 


GLOBALS REFERENCED: 

5111 : MESSAGES, VARIABLES, SUBROUTINES 
5113 000000 -REPT 0 

‘ POL 

:BEGIN ROUTINE MISCON 
5119 : SELECT SIZE UNIT AS DECIPOINTS 

: PRINT TEST ID 

: : “CANCEL” SECTION 
5124 : MOVE TO ABSOLUTE POSITION 1 INCH (VERTICAL AND HORIZONTAL ) 
5125 : WHILE SEQUENCE TABLE NE TO 0 0O ; DO FOR 
5126 : ee SEND ESCAPE OR CONTROL SEQUENCE WITH “CANCEL” CHARACTER INSJDE ; SEQUEN 


: ENOOO 
5128 ¢ SENO SECTION ID AND LINE LOCATION AND CR 
3129 : SEND 1 “CANCEL” CHARACTER OUTSIDE A SEQUENCE ; NOTHIN 


“SUBSTITUTE” SECTION 


MOVE TO ABSOLUTE POSITION 2 INCHES VERTICAL, 1 INCH HORIZONTAL 
SEND SECTION ID WITH LINE oe 

; WHILE TABLE1 OF SEQUENCES NE TO 0 DO 

5136 : : SEND ESC OR CONT SEQUENCE WITH “SUBSTITUTE” CHAR INSIDE ; SHOULD 


: 


uw 
~ 
Ww 
w 
ox 
- 
mi 


8 
3 
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101616 
101616 


101616 
101616 


102002 


TEST 


112737 
112737 
112737 
112737 
112737 
112737 
112757 
112737 
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000011 
000012 
000013 
000014 
000015 
000030 
000032 
000035 


003114 
003115 
003116 
003117 
003120 
003121 
003122 
003123 


B11 
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MISCELANEOUS CONTROL FUNCTIONS TEST 


. ENOR 


OUTBUF 
MOVE 

OUTBUF +1 :B= e12 : 5 
MOVB 


ENDDO 
SEND "SUBSTITUTE" CHAR COCTAL CODE 32) OUTSIDE SEQUENCE 
SECTION 


“CONTROL CHARACTERS INSIDE SEQUENCE” 


CLEAR ALL MORIZONTAL — VERTICAL uae 
SET A tae TAB AT THE 4 INCH 
THE 2 INCH FI og 
NORTZONTAL POSITION ABSOLUTE 1 INCH MARK 
MOVE RELATIVE VERTICALLY 1 INCH 
SEND ESCAPE SEQUENCE TO CLEAR VERTICAL TABS 
INSIDE THE SEQUENCE: - SEND vT, CR, HT 

SEND SECTION ID WITH LINE LOCATION MESSAGE 
MOVE TO HORIZONTAL POSITION 1 INCH 
SEND SEQUENCE TO TURN UNDERLINE 

INSIDE THE SEQUENCE: - SEND LF FF HT 
PRINT "“BELID” MESSAGE 


RESET THE PRINTE 


R 
SELECT SIZE UNIT AS DECIPOINTS 
DO A FORM FEED 


BGNTST 20. 


SOURCE CODE 


:B= O11 
-@11,0UTBUF 


: CODE FOR 


@12,0UTBUF +1 


OUTBUF +2 :8s 013 : 


wes OUTBUF +2 


MOVB 
OUTBUF «+3 :B- 3 


014, 0uTBuF - 5 


MOVB 
OUTBUF +4 :B8+ 015 ; 


#15  OUTBUF of 


MOVE | : 
OUTBUF +S ;:B* @50 3 
MOVE 


630, ,OUTBUF -5 


OUTBUF +6 :8* @32 3 
MOVB 


@32 ,OUTBUF 66 


LET OUTBUF +7 ;:B= 033 3 
MOVB 


OUTPUT OREINIT, 02 


OUTPUT OSELDEC,05 ; 
OUTPUT OMISCON, 042, 3 


SEG 9131 


; SHOULD 


s RESULT 
; SHOULD 
s LINE |. 


; SHOULD 
; IDENTI 
s SECTIO 


HT 

LF 

vi 

FF 

CR 

CANCEL 
SUBSTITUTE 
ESCAPE 


DECIPOINTS AS PARAMETERS 
TEST ID 


Cil 
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5184 : 
5185 ; “CANCEL” SECTION 
5186 3 
5187 102044 OUTPUT @ABPO1,¢12. ; ABSOLUTE POSITION 1 INCH VERTI 
5188 102106 LET R3 :* @SEQTAB 
(4) 102106 012703 104364 MOV @SEQTAB,RS 
5189 102112 LET R4 := @CNTTAB 
(4) 102112 012704 104410 MOV @CNTTAB,R4 
5190 102116 WHILE (R3) NE @0 DO s DO FOR EACH SEQUENCE IN TABLE 
(4) 102116 50542$: 
(6) 102116 005713 TST (R3) 
6.8) 102120 001002 BNE . +6 
(9) 102122 000137 102230 JMP 505433 
5191 102126 OUTPUT (R3)+,(R4)> 3 OUTPUT THE SEQUENCE WITHOUT A 
5192 102164 OUTPUT SOUTBUF -5, 61 s ABORT THE SEQUENCE Br SENDING 
5193 1062226 ENDDO 
(3) 102226 000733 BR 505423 
(3) 102230 505435: 
5194 102230 OUTPUT @CANSEC, 087. ; OUTPUT TEST ID AND LINE LOCATI 
5195 102272 OUTPUT @OUTBUF +5, 61 ; SEND 1 CANCEL CHAR. NOTHING SH 
ao 102334 004737 005306 JSR PC, QUIET 
1 
ziee 3 “SUBSTITUTE” SECTION 
5200 102340 OUTPUT @ABPO2, 013. ; ABSOLUTE POS. 2 INCHES VER AND 
520} 102402 OUTPUT @SUBSEC, 089. ; SECTION ID PLUS LINE LOCATION 
S202 102444 LET RS := @SQTABL 
(4) 102444 012703 104376 MOV @SQTAB1,R3 
5203 102450 LET R4 :* OCNTTAB 
(4) 102450 012704 104410 MOV OCNTTAB,R4 
5204 102454 ' WHILE (R3) NE 60 DO ; DO FOR EACH ENTRY IN THIS TABL 
(4) 102454 505443: 
(6) 102454 005713 TST (R3) 
(8) 102456 001002 BNE .*6 
(9) 102460 000137 102566 JMP 505453 
5205 102464 OUTPUT CR3)+¢,CR4)> 3; SEND ESC OR CONT SEQ WITHOUT A 
5206 102522 OUTPUT @OUTBUF «6,1 ; ABORT THE SEQUENCE 67 SENDING 
5207 | 3; SHOULD PRINT NOTHING 
5208 102564 ENDDO : 
(3) 102564 000733 BR 50544 
(3) 102566 50545: ! 
a 102566 OUTPUT SOUTBUF +6, 01 3: SUBSTITUTE CHAR OUTSIDE SEQUEN 
8 
ase 3 “CONTROL CHARACTERS INSIDE SEQUENCE SECTION” 
g 
$213 102630 OUTPUT @CLHVTE, 68. : CLEAR ALL HOR AND VER TABS 
5214 102672 OUTPUT @STVR4,@7 — ; SET VERTICAL TAB AT 4 INCH MAR 
5215 102734 OUTPUT @STHOR2, 07 ; SET HORIZONTAL TAB AT 2 INCH ™ 
S216 102776 OUTPUT @ABPOLH, 07 ; MOVE TO ABSOLUTE POSITION HORI 
5217 103040 OUTPUT ORLTV1, 06 : RELATIVE VERTICAL 1 INCH (SHOU 
5218 103102 OUTPUT #@CONSEG, 28. : SEND SEQ TO CLEAR VERTICAL TAB 
5219 103144 OUTPUT @CONSEC, 0107 : SEND SECTION ID AND LINE LOCAT 
5220 103206 OUTPUT @ABPO1H, 07 ; HOR ABSOLUTE 7O 1 INCH 
$221 103250 OUTPUT #CONSQ1,¢6. : SEND SEG TO TURN ON UNDERLINE 
S222 103312 OUTPUT @BELID, 681. ; IDENTIFIES LINE LOC 4S BEING 1 
5223 3; AND IDENTIFIES THE LINE AS BEI 


CStNAB Pt} 


Tt TB apr aa BBTSS X°4-°7 $654 ARE ARREBGS BONPRo. PPGRCPIbRS Test 


103530 


103532 


104624 


005306 


05151i 


104463 
104463 
00000 


OUTPUT @REINIT,@2 
OUTPUT @SELDEC,@5 
OUTPUT @OUTBUF +3, 01 


JSR PC,QUIET 


EXIT TST 
TRAP 


. WORD 
-NLIST BEX 


. SBTTL 
BGNSRV 


CsExItT 


L10033- ° 


LOCAL VARIABLES, TABLES, MESSAGES 


Dil 


SEQ 013% 


RESET THE MACHINE TO DEFAULT 
SELECT _ S 


FORM FEE 


GUARANTEE THE FORM FEED 


<33>/{ LOmMISCELLANEOUS CONTROL FUNCTIONS TEST 20/<12> 
' SECT SHOULD BE APPROX. 1 ~_ VERTICAL 

; “SUBSTITUTE” SECTION - THIS Ae POSITION SHOULD BE APPRO 

/“CONTROL CHARACTERS INSIDE A SEQUENCE” SECTION - LINE POSITION SHOULD B 


/ "CANCEL 


/THIS LINE SHOULD BE 


INTCAN, UNDSEQ, JUSSEQ,0, VECSEQ 


INTSUB , UNDSEG, JUSSEQ, VECSEQ,0 


ION - THIS LINE POSITION 


32,33,133,352,53,120 
33, 133, 60,73,63,60, ,60, 73,,63,60,60,73,71,60,60, 73, 61.65.60 


33, 
33,133,60,40 


33,133,67.62,60,144 
1335,61,64,64 
aa" ,133.63,147,33,133,64,147 


5 
33,1535,64,13.15,12.11,147 
33,153,64,12,15,14,11.,155 


PC QUIET 


CseETstT 


INTERRUP) SERVICE ROUTINES 


33,1353,67.,62,.60,140 
144,33,153,67,62,60,140 


gee 
s INTERRUPT VECTORS ARE ESTABLISHED DURING INITIALIZATION 


1 LINE BELOW SECTION ID AND IT 


x. 2 INCHES VE 
SHOULD BE UNDERLINED 


; TABLE OF CANCEL SEQUEN 


TABLE OF SUBSTITUTE SE 


; TABLE OF BYTE COUNTS F 


s POSSIBLE SEQUENCE INTR 


; DRWVEC 
INE SEG WITHOUT 
TURN ON JUSTIFY SEG wI 
ABSOLUTE POSITION 1 IN 


2 
CLEAR ALL HOR AND VER 


SOL 
ABSOLUTE HOR POSITION 
RELATIVE VER 1 INCH 
; CLEAR VER TABS 
; TURN ON UNDERL 


Bd 
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5278 sPOINTING TO THE BASIC ROUTINES WHICH 
§279 ;SET UP THE UNIT NUMBER CAUSING THE INTERRUPTS. 
5280 ;LINE NUMBER IS RETURNED IN R2 
5261 8 

$282 g-* 

5283 000000 X=0 

5284 104624 000020 INTOO: .REPT 16 

5285 SETPRI OPRIO4 

5286 PUSH R2 

5287 LET R2 := ox 

5288 INLINE <JMP IODRvV> 
5289 X=Xe2 

5290 .ENOR 

(4) 104624 012700 000200 Vv OPRIO4 ,RO 

(4) 1 104441 TRAP Cc 

<3) 104632 010246 MOV R2, -(SP) 

(5) 104634 012702 MOV ox, 

(3) 104640 000137 004542 JMP IODRV 

(4) 104644 012700 000200 MOV OPRIO4 ,RO 
(4) 104650 104441 TRAP 

(3) 104652 010246 MOV Re, -(SP) 

(S) 104654 012702 000002 MOV : 

(3) 104660 000137 004542 JMP 

(4) 104664 012700 000200 MOV @PRIO4 ,RO 
(4) 104670 104441 TRAP $ 

(3) 104672 010246 MOV R2, -(SP) 

(5S) 104674 012702 MOV @x,R2 

(3) 104700 000137 004542 Vv 

(4) 104704 012700 000200 MOV @PRIO4 RO 
(4) 104710 104441 TRAP CSSPRI 

(3) 104712 010246 MOV Re, -(SP) 

(5) 104714 012702 000006 MOV : 

(3) 104720 000137 004542 JMP Vv 

(45 104724 012700 000200 @PRIO4 ,RO 
(4) 104730 104441 TRAP C$SPRI 

(3) 104732 O01 MOV R2, -(SP) 

(5) 104734 012702 000010 MOV ex, 

(3) 104740 000137 004542 JMP 

(4) 104744 012700 000200 @PRIO4 ,RO 
(4) 104750 1 i TRAP 

(3) 104752 010246 MOV R2,-(SP) 

(5) 104754 012702 000012 MOV ox, 

(3) 104760 000137 004542 Jee Vv 

(4) 104764 012700 000200 OPRIO4 ,RO 
(4) 104770 104441 TRAP 

CZ) 104772 010246 MOV R2,.-(SP) 

(5) 104774 012702 000014 MOV ax,R, 

(3) 105000 000137 004542 JMP Vv 

<4) 105004 012700 MOV @PRIO4 ,RO 
(4) 105010 1 1 TRAP CSSPRI 

(3) 105012 010246 MOV R2, -( SP) 

(5) 105014 012702 000016 MOV @x,R2 

(3) 105020 000137 004542 JMP Vv 

(4) 105024 012700 000200 MOV OPRTO4,RO 
(4) 105030 104441 TRAP C$SPR 

(3) 105032 010246 MOV R2,-(SP) 


CZLNADO LNO1 TEST 
CZLNAD.P11 


ovr" 
mu 
~ 


Wh dw 


ENON EN ON ON ON ON ON EN ON EN OEE BPN NE LE LLL LLP 
NF FF a a a FF a lela a a a 


WAYUWS SWUYUWSaSWUAWSaSWUWh aUYUIWh SUUiWwd dw 


105220 


105224 
105224 


10-APR -84 
012702 


eR! 
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000020 MoV @x,R2 
004542 UMP V 
000200 MOV OPRIO4 ,RO 
TRAP C$SPRI 
MOV R2, -(SP) 
000022 MOV ax_R 
004542 IODRV 
000200 MOV @PR104 RO 
TRAP  —- C$SPRI 
MOV R2, -(SP) 
000024 MOV @x_R2 
004542 MP v 
000200 MOV @PRIO4 ,RO 
TRAP  - C$SPRI 
MOV R2, -(SP) 
000026 MOV @x.R2 
004542 IOORV 
000200 MOV @PRI04 RO 
TRAP  C$SPRI 
MOV R2, -(SP) 
000030 MOV ex. 
004542 IMP TOORV 
000200 MOV @PRIO4 , RO 
TRAP CSSPRI 
MOV R2, -(SP) 
000032 MOV ex. 
004542 IOORV 
000200 MOV @PRIO4 ,RO 
TRAP — CSSPRI 
MOV R2,-CSP) 
000034 MOV ax.R2 
004542 JP IOORV 
000200 MOV @PRIO4 RO 
TRAP CSSPRI 
MOV R2, -( SP) 
000036 MOV @Xx_R2 
004542 MP IOORV 
“SBTTL CLOCK SERVICE ROUTINE 
see 
;UPDATES THE COUNTER AT A RATE OF 16.67 MILLISECONDS PER TICK 
;AND UPDATES A SECOND COUNTER WHEN THE FIRST OVERFLOWS. 
5.27 


BGNSRV 
CLKTCK;: SETPRI oPRIO6 


SEQ 9135 


Gil 
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(3) 105224 012700 000300 MOV #PRIO6 ,RO 
(3) 105230 104441 TRAP C$SPRI 
$310 105232 IF TICK EQ #0 THEN 
(6) 105232 005737 105310 TST TICK 
(8) 105236 001402 BEQ .*6 
(9) 105240 000137 105256 JMP 50546% 
5311 105244 LET TICK := #60. 360 TICKS PER SECOND 
(4) 105244 012737 000074 105310 MOV 060. , TICK 
5312 105252 LET TIME := TIME + #1 
(7) 105252 005237 105306 INC TIME 
5313 105256 ENDIF 
.4) 105256 5054635: 
5314 105256 LET TICK ;:=* TICK - #1 ;BACK UP SECOND TIMER 
(7) 105256 005337 105310 DEC TICK 
5315 105262 IF CLKTYP EQ #2 THEN 
(6) 105262 023727 002316 000002 CMP CLKTYP,¢2 
(8) 105270 001402 DEQ . 6 
(9) 105272 000137 105304 JMP 50547$% 
5316 105276 LET SCLKCSR := 6100 
(4) 105276 012777 000100 075016 MOV #100, @aCLKCSR 
5317 105304 ENDIF 
(4) 105304 50547: 
5318 
5319 105304 ENDSRV ;AND EXIT 
(3) 105304 L10035: 
(2) 105304 000002 RTI 
5320 ; 
5321 105306 000000 TIME: .WORD O 
5322 105310 000000 TICK: -WORD O 
5323 -SBTTL HARDWARE PARAMETER SECTION 
$324 105312 BGNMOD 
5325 
5326 gee 
5327 ;THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO 
5328 sFURNISH THE HARDWARE INFORMATION NECESSARY TO BUILD THE HARDWARE 
5329 ;P-TABLES. : 
5330 F 
5331 bie 
5332 105312 BGNHRD | . 
(3) 105312 000010 -WORD 110036 -L SHARD/2 
mS 2, 105314 LSHARD: : 
5334 105314 GPRMA  GETADR,O.0, 160000, 177516, YES 
(4) 105314 000031 . WORD TSCODE 
(4) 105316 105334 -WORD  GETADR 
(4) 105320 160000 -WORD  TSLOLIM 
(4) 105322 177516 . WORD TSHILIM 
5335 105324 GPRMA GETVEC,.2.0.110,770, YES 
(4) 105324 001031 . WORD T$CODE 
(4) 105326 105351 -WORD GETVEC 
(4) 105330 000110 . WORD TSLOLIM 
C4) 105332 000770 . WORD TSHILIM 
5336 105334 ENDHRD 
(2) EVEN 
(3) 105334 L10036: 
$337 -NLIST BEX 


CZLNADO LNOL TEST 
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AA MAAAAES 
WNMUS BLS & 
ww Muy vuvwy 


5353 


105351 


105372 
105372 
105374 
105374 
105374 
105376 
105400 
105402 
105402 
105404 
105406 
105410 
105412 
105414 


105414 


105414 
105452 


105500 
105540 


105540 
105542 
105544 
105544 


111 052116 051105 GETVEC: .ASCIZ 
.LIST BEX 
3 
“e 
: 
BGNSF T 
000010 
L$SOFT: 
GPRML 
000130 . WORD 
105414 . WORD 
0c0001 . WORD 
GPRMD 
001052 . WORD 
105452 . WORD 
000377 . WORD 
000001 . WORD 
000377 . WORD 
ENDSF T 
L10037: 
-NLIST BEX 
052522 020116 040515 MGTINT: .ASCIZ 
052501 047524 051104 GETMAX: .ASCIZ 
-LIST BEX 
105500 -EVEN 
000620 PATCH: .BLKW 
LASTAD 
.EVEN 
000000 . WORD 
000000 2 
LSLAST:: 
ENDMOD 
000001 .END 


DNMAC X24.07-565 
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105334 050114 030461 040440 GETADR: 


Hil 


10-APR-84 09:07 PAGE 6-121 


HARDWARE PARAMETER SECTION 


.EVEN 
.SBTTL SOFTWARE PARAMETER SECTION 


;** 
;THIS SECTION INCLUDES THE QUESTIONS WHICH REQUEST THE OPERATOR TO FURNISH 
;THE SOFTWARE INFORMATION NECESSARY TO BUILD THE SOFTWARE P-TABLES. 


-ASCIZ /LP11 ADDRESS/ 


INTERRUPT VECTOR/ 


.WORD L10037-L$SOFT/2 
MGTINT,O,1,YES 
T $CODE 


MG TINT 


1 
GETMAX,2.0,3577,1.255.,YES 
T $CODE 


TSLOLIM 
TSHILIM 


/RUN MANUAL INTERVENTION TESTS/ 
/AUTODROP ERROR COUNT / 


oo 


SEG 0137 


ohh 


CZLNADO LNOL TEST DNMAC X24.07-563_  10-APR-84 wee PA PAGE 7 SEQ 0138 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
ABMAR 067236 45c5 4604¢ 

ABOVE 073541 4860 49700 

ABPOL 104472 5187 5246¢ 

ABPOIH 104560 5216 5220 S252¢ 

ABPO2] 104506 5200 52474 

ABPOS 104551 5251 

ABREL 024656 2585 26138 

ABS3 063566 4331¢ 

ABS7 063575 4332¢ 

ABTBCT 067534 4539 46252 

ABTBL 067512 4538 46246 

ACRLF 004043 G 1078@ £2717 2728 3701 3702 3711 3712 3719 3720 3727 3728 
ACTIVE= 020000 9509 1233 1245 1250 1314 1316 1321 1595 1700 2439 
ADR = 000020 G 9104 

AMAR 067062 4594 4595¢ 

APTEL 044254 3426 3558¢@ 

ASBGIN 074402 4991¢ 

ASOIAL 073424 4845 49678 

ASENDL 074456 9002 

ASENDP 074440 5001¢ 

ASSOIA 073404 4844 49660 

ASSEMB= 000010 748 750 

ASSI10 074410 4983 4984 49930 

ASSI11 074413 4983 4985 49940 

ASSIi2 074416 4982 4983 4984 49954 
ASSI13 074421 4962 4983 4985 49966 
ASSI14 074424 4982 4983 4984 499790 
ASST1S5 074427 4962 4983 4985 49984 
ASSIle 074432 4982 4983 4984 4999¢ 
ASSI17 074435 4982 4983 4985 5000¢ 
ASSTBL 074106 49830 

ATBL 044160 3425 3555¢ 

ATHRUZ 050354 3691 3752¢ 

AVEC 053735 4009 40400 

BELID 104242 S222 5236¢@ 

BELOW 073451 4859 49699 

BEM 033221 2996¢ 

BGNLD 074503 4914 5004 ¢ 

BGNSEQ 043254 35120 3568 

BIN2DA 004330 11680 

BITO = 000001 G 910¢ 

BITOO = 000001 G 910¢ 

BITO1 = 000002 G 910¢ 

BITO2 = 000004 G 9108 

BITOS = 000010 G 910¢ 

BITO4 = 000020 G 9108 

BITOS = 000040 G 9106 

BITO6 = 000100 G 9106 

BITO7 = 000200 G 910@ 1660 1670 

BITO8 = 000400 G 9108 

BITO9 = 001000 G 9100 

BIT1 = 000002 G 9108 

BIT19 = 002000 G 910¢ 

BIT11 = 004000 G 9108 

BIT1l2 = 010000 G 910% 

6IT13 = 020000 G 910¢ 950 


vit 


CZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-1 SEQ 0139 

CZLNAD .P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- User SYMBOLS 

BI'14 = 040000 G 910¢@ 949 

BIT15 = 100000 G 9100 948 1225 1307 1643 2379 2453 2470 

BIT2 = 000004 G 9190¢ 

BITS = 000010 G 910¢ 

BIT4 = 9000020 G 910¢ 

BITS = 000040 G 910¢ 

BIT6 = 900100 G 910¢ 

BIT? = 900200 G 9106 1652 1717 

BIT8 = 000400 G 910¢ 

BIT9 = 001000 G 910¢ 

Bi ANK 022301 2389 2490¢ 

BMAR 067076 4594 45960 

BOE = 000400 G 910¢ 

BOTMAR 044023 3549¢@ 3569 3576 

BOTNUM 044155 3552e@ 3569 3576 

BOTSEC 037447 3176 3179 3234¢ 

BPTBL 044422 3432 3563¢ 

BTBL 044346 3431 3560¢e 

BUF ADD 002344 993¢ 1341 1342 13694 14304 15254 17096 17104 1787«¢ 1790¢ 1791¢ 
181il¢ 1816¢ 18516 1856¢ 1857« 4 1869+ 1877¢ 1886 1887s 1888s 


2584 25854 # 2587s ie 86609225894 o 259356 26006 26014 26026 

& * 2606¢ 2714@ +$=2715¢ 2716 2717e #£«%2718¢ 27264 27284 $=2729¢ 
27304 27320 2733e 2735¢ 27360 27378 #§£=27386 2wWee 29126 29146 
2915+ 2917e 29196 ie 2926¢ 2927¢ 29304 2938e 2941¢ 
29434 29474 e 2949e 2953¢ 2957s o e 2969% $2971+¢ 


3411e¢ 3412 34140 3415 S34i7e 342i 34372 34382 3439¢ 
34404 Ps 3447s 34502 34552 34616 3474e 3475¢ 
3479e 34800 3484+ 3487e 3469e 34902 34916 3686+ 
3687s 9e 3690e 3691¢ 3693¢ 36940 a 3697e 3701e 37022 $=3704s 
3705« 37072 3709¢ 3711¢ #j.+S7i2e 37142 #$£=3716e #*;:+3719¢ 3723e¢ 37240 #£é3725¢ 
3727e 37266 37306 3731e 37320 37330 37340 Py 3845 3846¢ e 
3851+ ¢ 36530 38654e 3856+ 3857+ 386592 5860s 3866« 3986¢ 
3987e 3988+ 3989¢ 3990e 39944 3996+ 3997s 4197e 41982 41996 
4200 4204e 4205e 4206 4207s o 42116 4215 4216e 4218+ 
42194 42224 & 4227+ 42282 42296 4231 423e¢ 4239¢ 42614 4242e 
42430 42440 4245¢ 4247e 42522 425356 ® 42622 4265 
4266+ 42704 427364 4275« 4276¢ 42776 427864 44876 48964 449 7a 44984 
4499% 4500 45032 4504e¢ 4505¢ 4 4506«  4509¢ 45230 45242 4526¢ 
4527s 4528 4529¢ 4531l¢ 4536¢ 4537s 4540¢ 4541s 4546 4547¢e 4555 

| 48466 aB47e 4848 


BUFCNT 002346 995@ 1345 1344 1369¢ 1430¢ 1525¢ 1709e # 1710 





Kid 
CZLNADO LNO1 TEST DNMAC X24.07-563_10-APR-84 09:07. PAGE 122 SEQ 0140 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 


2730e 27320 2733% #£j2735e #j.27364 #$j.2737# #$£=-.(27384 +#$£=2899% 2900+ 290i+¢ 2+ 29124 29144 
2915 2917+ 29198 2921 29264 2927 29294 2930 2933+ 2937 29384 29404 2941s 
29430 29474 29484 2949% 29534 29574 29594 29626 & * Qe 2971+ 


BUFREP 002350 997@ 1345 1369 1430@ 15256 1709¢ 17108 17126 ii1715¢ 1787 #£=|j1790e 1791e #=18114 
888+ 


25854 25864 25874 & * a 25934 25954 25994 « 2601 26026 ©6044 
26054 * 2714e #=$=%|}2715¢ 27160 j2717e $2718 27198 #2725 27260 2728 i$j2729% #$£=2730s 
27320 860627330 8 =6062735e@ 0 =— 273600 0 27374. «0627384 0 3=—s 28998 * 2901 29022 29126 2914e #£=2915+ 
2917 2919 2921 2926% 29274 2930e 2933e¢ 2937 2938 29402 29414 2943¢ 
29474 2948e 2949% 29536 2957¢ 29594 a 2 29664 2969% 29714 +£«+%2975¢ 
2976e 2978 #j.2979¢ 2962+ 2983¢ 31420 31432 31442 +$$+(}3145¢ 3146e j3147e ##=3148+ +$%$3149¢ 
3150 3151¢ 31526 315356 31546 3155e 3156« 31576 3158 3159 #31612 31640 3166 
3167 3168% 3170e 31716 j3173e 3174e ##+$§.33175e¢ 31762 3178 #31798 $1812 31822 # 3183 
31844 3185 3187¢ 3190s 31926 31936 31944 31952 31966 3410e 3411¢ 
34126 34146 34154 3417¢ 342i¢ 342356 3428% 34340 34374 3438 3439 34404 
34440 3445e 3447¢ £34506 3455¢ 3461¢ ® 3467e 3468%e 347008 34740 #+;:|‘$3475¢ 3479 
3480e¢ 34640 34870 34884 534892 34902 34915 36622 3683s & e  3686¢ 7* 


Bes! 


CZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-3 SEQ 0141 

CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
4500¢ 4503« 4504« 4505« 45064 4508+ 4509 45176 45224 4523¢ 4524 4526+ 45276 
4528%* 4529 4531 4536¢ 4537 4540 4541 45436 45444 45464 4547+ 4555+ 4559s 
4561¢ 4562e 45654 4840 4841+ 48420 4843% 4844+ 4845+ 4846+ 4847+ 4848+ 4849 
48S52= 4855+ 4854+ 4855+ 4856+ 48574 4859% 4860 4861+ 48624 49146 4917# 49226 
4927 4932 4935 49364 49374 49364 49424 49434 4945+ 49466 49474 4948« 49526 
4953 4954+« 5181 51826 5183 51874 51916 51926 51944 5195 5200 5201+ 52056 
5206e 5209 52134 52144 =S215¢ 5216 5217 5218 52196 5220 52216 52226 5224 
5225 52264 

BYTTBL 053000 3992 4010¢ 

CANSEC 103607 5194 52330 

CCNT 002300 962@ 1800# 22264 

CHAR 011722 1795 1797 1801 18024 1803 1804 1805 18064 18204 

CHAR24 057737 4294¢ 

CHARS4 057663 42930 

CHRGEN 002304 9644 

CK1 006342 1509¢ 

CLEAN 007276 15892 

CLEART 067333 4606 4610¢ 

CLHVTB 104523 5213 5248¢ 

CLKCSR 002322 977@ 15024 1503 15136 1516¢ 16044 53164 

CLKENA 002330 

CLKSET 002324 978¢ 

CLKTCK 105224 5309¢ 

CLKTYP 002316 972% 14974 1500 15114 1519 1602 1606 5315 

CLKVEC 002326 979% 15054 1506 15146 1605 1607 

CLOCKP 002320 976¢@ 1501¢ 1502 1512s 1515 

CLRHOR 036610 3146 3167 32080 

CLRTAB 043170 35084 

CLRUND 047760 3724 3730 3739¢ 

CLRVER 036604 3145 32078 

CMAR 067112 4594 4597¢@ 

CNTTAB 104410 5189 5203 52400 

COMMEN 073632 4861 497190 

CONSEC 104067 5219 5235¢ 

CONSEQ 104575 5218 5254¢ 

CONSG1 104605 S221 52550 

COUNT 002276 961¢@ 1861¢ 1673 19486 1963e 21314 2151 2152 2913e 2918 2928e 2959s & 
2967 2977@ =3160¢ 3163¢ 351694 531776 31866e 3189 34136 3446+ 34832 =37152 # £37214 
3849% 4213« 4215 4220 4221 4224 4228 42542 4235 4238 4243 45254 49444 

COUNTD 004536 11726 1177 1180 1181 1182 1189 1204¢ 

CPTBL 044646 3453 35720 : 

R = 15 917¢ 

CSRERR 003342 1065@ 1647 2381 

CTBL 044554 3452 35680 : | 

CURADD 002545 1015¢@ 1228 12294 12404 1242 1243 13412 2441¢ 

CURCNT 002746 10278 1227 12344 1241+ 12444 1326 13436 1346 13826 14644 1596e 24402 2481+ 

CsAU = 000052 7484 

CSAUTO= 000061 748% 818 

CSBRK = 000022 7480 

CS$BSEG= 000004 7482 

C$BSUB= 000002 7484 

CSCEFG= 000045 7480 

CSCLCK= 000062 7486 §@6 1498 1509 

CSCLEA= 000012 748% 1610 

CSCLOS= 000035 748¢ 

C$CLP1= 000006 7484 


Mil 


C.LNADO LNO1 TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-4 SEQ 0142 

CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

CS$CVEC= 000036 748@ 1605 

CSDCLN= 000044 748@ 1389 

CsD0DU= 000051 7488 

C$DRPT= 000024 7480 

Cs0U = 000053 748¢ 

CSEDIT= 000003 7480 769 

CSERDF= O00055 748¢@ 

CSERHR= 000056 748@ 8§=1134 1139 1145 1647 1664 1674 1698 1728 2381 2422 2460 2477 

CSERRO= 000060 748% 

CSERSF= 000054 7480 

CSERSO= 000057 748¢ 

CSESCA= 000010 7480 

CSESEG= 000005 748¢ 

CSESUB= 000003 7484 

CSETST= OO0001 748% 1752 1829 1899 2089 2185 2260 2348 2508 2641 2750 3001 3237 
3581 3759 3879 4048 4335 4661 5079 5259 

CSEXIT= 000032 748¢ 8=61434 1526 1719 1818 1891 2016 2161 2246 2341 2368 2371 2485 
2608 2740 5 3201 3493 3736 4002 4260 4565 4957 5228 

CSGETB= 000026 748% 

C$GETW= 000027 748% 

CSGMAN= 000043 7482 1454 2408 2430 2452 2456 2469 2473 

C$GPHR= 000042 748@ #8 1404 1460 

C$GPLO= 000030 748¢ 

C$GPRI= 000040 748@ 

CSINIT= 000011 748% #8 1541 

CSINLP= 000020 748¢ 

CSMANI= 748@ 1443 2366 

CSMEM = 000031 748% 

CSMSG = 000023 7488 

CSOPEN= C00034 7480 

CSPNTB= 000014 7488 

CSPNTF= 000017 7482 1384 1388 1440 1441 1446 1520 1521 2405 2406 2407 2428 2449 
2450 2451 2454 2455 2467 2468 2471 2472 

CSPNTS= 000016 748% 

CSPNTX= 000015 748% 

CsQIO = 000377 7480 

CSRDBU= 000007 748¢ 

CSREFG= 000047 7489 1422 1424 

CSRESE= 000033 748@ 861438 1587 

CSREVI= 000003 7484 769 

CSRFLA= 000021 7489 

CSRPT = 000025 748¢ 

C$SEFG= 7484 

C$SPRI= 000041 748@ 81428 1523 1586 1609 1681 1692 1708 5290 5309 

CSSVEC= 000037 7486 #81482 1506 1566 1607 1682 1695 : 

C$TPRI= 000013 748¢ : 

DATPTH 011724 1791 18214 

UG = #44444 VU 2653 2762 3012 3593 3771 3891 4060 4347 4675 5091 S271 

DECFIN 004052 G pe ad 1712 1787 1857 2125 2215 2291 2901 3195 3410 3862 4252 4842 

DECLCS 051704 3850 3871¢ 

DEFMAR 043713 35474 568 3570 

DEFMR1 037372 3155 32294 

DEFMR2 037402 3156 32304 

a = 000177 G 918¢ 
OFAULT 010634 1710 17424 


Nit 


CZLNADO LNO1 TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-5 SEQ 0143 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
DFPTBL 002252 G 8030 

DIAGMC= 000000 748 750 

DIAGTB 074364 4939 49900 

DIAGX 074514 4940 S5007¢ 

DIAGO 074532 5007 50084 

DIAGi 074547 5007 5009% 

DIAG12 074616 4990  5013% 

DIAG13 074643 a990 ©6=-_:- $015 @ 

DIAG14 074670 4990 50170 

DIAG1S 074715 4990 5019% 

DIAG16 074742 a990 = _—s« 50214 

DIAG17 074767 4990 50230 

DIAG2 074564 5007. 50108 

DIAG3 074601 5007 50114 

DIGITS 540 1174* 12050 

DISANL 027126 2718 27430 

DMAR 7126 4594 4598¢ 

DONE 013132 1884 18940 

DOORDY 023372 2471 25030 

DOORD1 023441 2472 «= 25040 

DOORSW 023265 2467 2501¢ 

DOOSWI 003556 1069@ 2477 

DOOSW1 023342 2468 25020 

OPTBL 045010 3459 _«-3577¢ 

DROPED= 040000 9499 1303 1381 #41491 #4«®941595 1700 
DROPIT 005354 1152 =: 13810 

DRULE1 043636 3543¢ 3562 

DORULE2 043664 3545@ 3569 

DRWVEC 052632 3987 3998 40060 

OSSU 067504 4546 46220 

DTBL #§ 044740 3458 35746 

DVEC 053417 4009 40296 

EF .CON= 000036 G 910¢ 

EF .NEW= 000035 G 910¢ 

EF .PWR= 000034 G 910¢ 

EF .RES= 000037 G 9108 1424 

EF .STA= 000040 G 910% 1422 

E 067142 4594 45994 

ENABNL 027177 2729 = «27440 | 

ENDHAB 043566 3535¢ 3555 3556 3557 3560 

ENDHR 043565 35349 3556 

ENDHT 043564 35330 

ENDLD 074511 4935  5005¢ 

ENDLRM 043562 3531¢ 

ENDPLP 043570 35370 : | a 
ENDTBM 043563 3480 35326 3568 #3569 3570 3574 #3575 
ENOTS 044113 3488 35500 

ENDVAB 043567 35369 3569 3576 

END2 010224 1699 1729 1736 

ENJUS 063472 4275 43230 

EOIGN 042772 3487 35020 

EOPLP 042676 3470 35014 

ERFLG = 000400 1129  1335¢ 

ERRCOD 002332 9819 1129 1155 1258 1299 1308 13208 1330 1334 14516  2438¢ 
ERRFLG 002334 9830 23938 2410 2418 2419 24264  2437¢ 


ERROR = 100000 948% 1154 1257 1309 1322 1595 1644 1661 1671 1700 2439 


Ble 


CZLNADO LNOL TEST AGE 7-6 
-- USER SYMBOLS 


DNMAC X24.07-565 09:07 


10 - APR - 84 P SEQ 0144 
CROSS REFERENCE TABLE 


CZLNAD.P1L1 10 -APR-84 08:55 

ERRSVC 003046 10360 1259 1335 13696 14306 15256 17096 17106 1712¢ 17156 1787« 1790 1791¢ 
18ile 1816¢ 1651¢ 18566 18576 18654 18696 18776 1681¢ 18846 886+ 1887-6 1888+ 
1941¢ 1942 19735e¢ 2008 2014 2123 21258 2130 2135 #2138 21426 2144 # 2147s 
2149¢ 21506 21576 22156 22176 22184 22396 22446 22916 22936 22946 22956 22964 
2306 23146 23166 23256 23306 2336¢ 2366 2389e 24126 24166 2421¢ 2483¢ 25834 
25846 25856 2586e 2587¢ 2588e 2589e 25926 25936 25956 996 26006 2601+ 2602¢ 
26046 26056 06¢ 2714e +#2715¢ 27166 27176 27166 2719 27256 27266 27284 27296 
27306 2732e 27330 £27354 27366 2737e 27386 28996 a 29016 29026 29126 29146 
2915 29174 2919e 2921% 29264 29276 29296 2930 293536 29376 29386 2940¢e 29414 
29436 2947s 2948e 29496 29536 29576 29596 29606 29626 * 6 2969 2971 
29756 29760 29786 29798 29826 29636 31426 31436 31446 31456 31466 31476 31486 
3149 31504 3151¢ 31526 31536 31546 31556 31566 3157e 31586 31596 3161¢ 31646 
31664 31676 3168 3170 3171le 31736 31746 31756 51766 31766 3179¢ 3181¢ 31826 
31836 3184e 3185¢ 3167e 3190¢ 31926 3193¢ 31946 31956 31966 a 3409 3410 
341le 3412¢ 34146 3415¢ 34176 20¢ 34216 34256 34266 34346 34376 34386 34396 
34400 34440 3445¢ 34470 3450¢ 34556 34616 34666 34676 34686 34706 34746 34756 
34790 3480 34840 3487¢ 3488s 34896 34906 3491¢ 36826 36836 & 36856 36866 
3687¢ Qa 3690 3691¢ 36936 36946 36956 36976 36966 3700¢ 37016 37026 37046 
3705 3707¢ 37090 37114 3712 37146 3716¢ 37196 37206 3722¢ 37236 3724e 3725e 
3727¢ 3726e 37300 3731¢ 37320 37336 37346 38426 38436 38446 38456 38466 3850 
3851 3852 3853e 38546 38566 3857¢ 3859 3860 38626 38646 3865¢ 38664 39866 
3987e 39884 39896 3990¢ S984 39966¢ 39976 39966 39996 40006 4197«¢ 41986 41996 
42002 4204e 42052 4206¢ 4207¢ 42086¢ 4209¢ 42lile 4212¢ 42148 4215¢ 4216e 4218 
4219e 42226 4225* 42276 42280 4229¢ 4231e 4232e 42336 42360 4239¢ 4241¢ 42426 
42430 4244¢ 42450 42470 #£4252¢ 42556 42546 4255 4256¢ 4257e¢ 4258+ 4262+ 4265 
4266 42700 4273e 4275¢ 4276¢ 4277 4278¢ 4487e¢ 44880 44920 44966 44976 4498 
4499 4500« 4503e 45042 45056 45066 45066 4509¢ 451i 7¢ 45226 4523¢ 45240 4526 
4527 4528e 4529e 45314 4536¢ 45376 4540<¢ 45416 45432 45446 45466 4547 45556 
45594 456l1e 4562 4563e 48406 4841¢ GAa « 48430 48446 48456 48464 4847e 4348e 
4849¢ 48526 48550 48546 ~855¢ 4856¢ 4657 4859e 48606 48616 486264 4914¢ 4917 
49226 4927 49326 4935¢ 4936¢e 4937¢ 49366 QIAO e 49436 4945¢ 49466 494 7¢ AWMWMBe 
49522 4953e 4954s 5181 5182 5183 5187 5191¢ 51926 51946 51956 5200¢ 52016 
5205¢ 5206¢ 5209 5213¢ 52140 52156 5216¢ S2i7e 521686 52196 52206 S221¢ Se22e 
S224e 52256 52266 

ERRTBL 003050 G 103790 11326 1137e 11436 1151 13856 1463-6 1597e 16456 166 3¢ 1672e LE9He 1726e 
2380 2423e 24566 24756 

ERR11 011010 1674 17480 

ERR1Le 011064 1728 174990 

ERR1i3 011147 1698 1750¢ 

EVENTB 074130 49840 

EVL = 000004 G 9100 

E xP 060015 4205 42960 

EXPL 061153 4254 43050 

EXPL1 061360 4255 43070 

EXPL2 061452 4256 43080 

EXPL 060225 4206 42986 

ExP2 060444 4207 43008 

ExPs 060665 4208 43020 

EXP4 061103 4209 43040 

—EXRMAR 35 35290 3564 8546 

ESEND = 002100 7480 

ESLOAD= 000035 7480 769 

FAKE 005462 1402¢ 1427 

rr = 000014 G 9169 

FLAG 002270 9580 14506 1454 237360 24046 2408 24290 2430 24486 2452 2456 Caeoe o4e09 


Linke 


CZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-7 SEQ 0145 

CZLNAD.P11 10-APR -84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

FLAGDA 004534 1171l¢ 1180 11836 1192 12050 

FMAR 067156 4594 46009 

FONDEM 073155 4849 49620 

FONSLA 073237 4855 49630 

FONSLB 073255 4857 49640 

FONTST 073132 4843 4961¢ 

FRAME 066707 4576 45860 

FUN 050414 3725 3754@ 

FSAU = OOOO1S 7480 

FSAUTO= 000020 7480 814 816 

FSEGN = 000040 7480 766 774 814 897 900 1410 1418 1419 1434 1526 1585 1612 
1616 1627 1719 1725 1734 1752 1754 1769 1784 1616 1829 1831 1845 
1850 1891 1899 1901 1915 1938 2016 2089 2091 2105 2121 2161 2185 
2186 2200 2210 2246 2260 2261 2273 2288 2341 2348 2350 2354 2364 
2368 2371 2485 2510 2515 25861 2608 2641 2642 2656 2712 2740 
2750 275i 2765 2897 3001 3014 3017 3134 3201 3237 3239 3243 
3388 3493 3581 3582 3596 3673 3736 3759 3760 3775 3840 3879 
3880 3895 3985 4002 4046 4049 4065 4185 4280 4335 4336 4352 4472 
4565 4661 4662 4676 4628 4957 5079 5096 5169 5228 5259 5260 
S274 5308 5324 5332 5349 5362 

FSCLEA= 000007 748@ 8§=1585 1610 

FSDOU = 000016 7480 

FSEND = 000041 7480 766 61e 897 900 1410 1418 1434 1526 1541 1610 1612 1616 
1627 1719 1730 1737 1752 1754 1769 1784 1818 1829 1831 1845 1850 
1891 1899 1901 1915 1938 2016 2089 2091 2105 2121 2161 2185 2186 
2200 2210 2246 2261 2273 2288 2541 2348 2350 2354 2364 2368 
2371 2485 2510 2513 & 2641 2642 2712 2740 2750 
2751 2765 2897 2985 1 35014 3017 31354 3201 3237 3239 3243 3388 
3493 3581 3562 3596 3673 3736 3759 3760 3775 3840 3879 3880 
3895 3985 4002 4048 4049 4065 4168 4280 4335 4336 4352 4472 4565 
4661 4662 4678 4828 4957 5079 5980 5169 5228 5259 5260 5319 
5324 5336 $352 5362 

FSHARD= 000004 7488 5332 5336 

Fst = 000013 7480 803 810 

FSINIT= 000006 7488 #81419 1541 

FSJMP = 000050 7480 81434 1526 1719 1818 1891 2016 2161 2246 2341 2368 2371 2485 

2740 2965 5201 3495 3736 4002 4280 4565 4957 5228 

FSMOD = 000000 7480 766 897 1410 1418 1612 1616 1754 1769 1831 1845 1901 
1915 2091 2105 2186 2200 2261 2275 2350 2354 2510 2513 2642 2658 
2751 2765 3014 3017 3239 3243 3582 3596 3760 3775 3880 3895 40389 
4065 4336 4352 4662 467@ 5096 5260 5324 5362 

FSMSG = 000011 7480 

FSPROT= 000021 7480 774 778 

FSPWR = 000017 7480 

FSRPT = 000012 7480 

FSSEG = 000003 7480 5 

FSSOF T= 000005 7480 5349 5352 | 

FSSR¥ = 000010 7489 8§=1725 1730 1734 1737 5274 5308 5319 

F$SUB = 000U02 7480 

FSSW = 000014 7480 626 835 

FSTEST= 000001 7480 #81627 1752 1784 1829 1850 1899 1938 2089 2l2l 2185 2210 2200 
2288 2348 2364 2508 2581 2641 2712 2750 2897 3001 3133 3237 3388 
3581 3673 3759 3840 38679 3985 4048 4188 4335 4472 4601 8828 sc 79 
5169 5259 

GETADR 105334 5334 53380 


GETMAY 105452 5351 53559 


CZLNADO iL_NOL TEST 


CZULNAD.P11 


105351 


5335 
4594 
2593 
2595 
4009 
7480 
748¢@ 
7480 
7480 
7480 
7480 
7482 
7480 
7480 
748@ 
748@ 
7480 
7460 


DNMAC X24.07-563 
10-APR-84 08:55 


5359¢ 
460190 
26308 
263570 
40340 


1317 


10-APR-84 09;07 
CROSS REFERENCE TABLE -- 


1432 


26278 


32200 
32240 


3566 
3566 


1654 


2430 
2430 


2430 


2430 


2430 


1685 


2452 
2452 


2452 


2452 


2452 


Die 


PAGE 7-8 


USER SYMBOLS 
1695 

2456 2469 
2456 2469 
2456 2469 
2456 2469 
2456 2469 


2475 
2475 


2475 


2473 


2473 


5334 
5334 


5350 


5350 


5334 


5335 5250 
5335 5350 
5335 5350 


S351 
5351 


5351 


SEQ 0146 


E12 


ZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07. PAGE 7-9 SEQ 0147 

CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

IGNORC 043615 35410 3566 

IGNORE 007202 1506 1549 1607 

IGNORL 043571 35380 

IGNOR2 043623 35420 

IGNTBL 044532 3476 35660 

IGNTBP 044544 3477 35670 

IGSEC 043103 3484 35030 

IGTBL 044474 3441 35640 

IGTBLP 044514 3442 3565¢ 

IMAR 067222 4594 46030 

INDEX 002340 9880 

INHINT 002264 8280 2370 

INSTRC 024751 2586 26140 

INSTRL 025140 2587 26160 

INTCAN 104422 5238 52410 

INTERR 010516 6 17260 

INTER1 003622 10708 

INTFAC 010554 1709 1740¢ 

INTHDL 010546 1693 17360 

INTLK 022244 24890 

INTSUB 104431 5239 5242¢ 

INTOO 104624 1480 52840 

IOCTRL 004740 1278¢ 1369 1430 1525 1709 1710 1712 1715 1787 1790 1791 1811 1816 
1851 1856 1857 1865 1869 1877 1881 1884 1886 1887 1888 1941 1942 
1973 2014 «= 2123—ti—«i 2130 2135 2138 #$=$®%(}1#*142 #2144 2147 2149 2150 
2157 2215 2217 2218 2239 2244 2291 2295 2294 2295 2296 2306 2314 
2318 2323 2330 23 2389 2412 2416 2421 2483 2583 2584 
2586 2587 2592 2593 95 2599 2601 

2714 2715 2716 2717 2718 2719 2725 2726 2728 2729 2730 2732 

2733 2735 2736 2737 2738 2899 2901 2912 2914 2915 2917 
2912 2921 2926 7 2929 30 2933 2937 2938 2940 2941 2947 
2948 2949 2953 2957 2959 2962 9 2971 2975 2976 
2978 2979 2983 3142 3143 3144 3145 3 3147 3148 3149 3150 


3185 3187 3190 3192 3195 3194 3195 3196 3410 3411 341le 
3414 3415 3417 3421 3423 3428 3434 3437 3438 3439 3440 3444 
3445 3447 3450 3455 1 3467 3470 3474 3475 3479 3480 
3484 3487 3489 3490 3491 3 3685 3686 3687 3689 
3690 3691 3693 94 3697 98 3700 3701 3702 3704 3705 3707 
3709 3711 3712 3714 3716 3719 3720 3722 3723 3724 3725 3727 3728 
3730 3731 3732 3735 3734 3843 3845 3846 3850 3851 3852 
3853 3857 3859 3862 3864 3865 3866 3986 3987 3988 
3989 3990 3994 3996 3997 3996 3999 4000 4197 4198 4199 4200 4204 


4225 4227 4228 4229 4231 #4232 4233 4236 4239 4241 4243 4244 
4245 4247 4252 4253 4254 4255 4256 4257 4258 4265 4266 4270 
4273 46275 4276 4277 #44278 4487 44 4492 4496 4497 4498 4499 4500 
4503 45046 4505 4 4508 4509 4517 4522 4523 4524 «4 4527 4528 


Fle 


CZLNADO LNO1 TEST ONMAC X24.07-563 10-APR-84 09:07 PAGE 7-10 SEQ 0148 

CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS : 

IODRV 004542 1223@ 5290 

ISR = 000100 9100 

IVEC 053475 4009 40320 

IvVEC2 053615 4009 4036¢ 

IXE = 004000 910¢ 

TsAU = 000041 7480 

ISAUTO= 000041 748@ 4 §©=68149—s«wB18@ 

ISCLN = 000041 748@ 15852 16100 

IsDU = 000041 7480 

I$HRD = 000041 53320 53360 

ISINIT= 000041 748@ 41419 1434 1526 15410 

ISMOD = 000041 748@ §©=6766@)«=—s(«897@)=—s(900-—Ss—«sai410@ »=—s«1418@ «=61612@ «1616 §=«0917540 «617698 )«=:18316 «618458 3619019 
1915@ 2091@ 2105@ 2186@ 22008 22610 22730 23500 2354@ 25100 25138 26420 26584 
2751@ 2765@ 30140 30178 #32390 32430 35820 35960 37600 37756 38809 38958 40499 
40650 43360 43520 4662¢@ 46780 50800 50960 52600 53240 53620 

I$MSG = 000041 7480 

ISPROT= 000040 7480 48=s «7740 

ISPTAB= 000041 7480 

IsPWR = 000041 7480 

I$RPT = 000041 7480 

ISSEG = 000041 748@ 1627 1784 «©1850 1938 2121 2210 2288 +#+$($2364 2581 2712 #2897 #3134 
3388 48=s—s«i36732=Sss«3840020Cf's«Ci398S~=—i‘i‘édk BBCi‘ 72]—s—“‘<‘«é‘«wKBBOCS1699 

ISSETU= 000041 7480 

IsSFT = 000041 53499 «= 53528 

ISSRV = 000041 748@ 1725@ 1730@ 1734@ 173780 5274@ 5308¢ 5319¢ 

I$SUB = 000041 748@ ©61627 «=6_.1784~=S ss 18500—S's«ia193B2=—Sss«i212—i(i22100'—=ssi22BHCtCi‘ékSSACC“(‘<é«é‘éikSwBCCCi2TDP_——‘—‘i‘ialtTC(‘<é‘«é8KB 
3388 4=s—s«i36732S ss 384002Cf'si«i398S~—sé«é«A«128G 72 4828 5169 

IsTST = 000041 7480 1627@ #1719 #£«1752@ «#461784@ #41818 #£%18296 18508 1891 £16996 19388 2016 2089¢ 
2121@ 2161 2185@ 22100 2246 2600 228680 2341 23480 23648 2368 ###=j2371 2485 
25086 2581 2608 2641@ 2712@ 2740 27500 2897e@ 2985 3 3001e 3134@ #3201 #32372 
3388¢ 6034930 3581e@ 406 36730 4«=— 373602037598 «439 38400 38790 3985¢ 4002 4048 41882 
4280 4335@ 44720 4565 4661¢ 4828@ 4957 5079e@ 5169¢ 5228 5259¢ 

JUSSEQ 104466 5238 5239 52450 

JUSSPA 057616 4285¢e 

JUSTFY 057636 4214 4227 4242 42870 

JUSTIF 057767 4199 42950 

JUSTOF 054062 4045¢ 

JUSTON 054055 40440 

J$JMP = 000167 7480 

LANSEL 020416 2323 «23440 

LEFRI 025332 2589 26199 

LETTBL 052750 3991 40090 

LF = 000012 915@ 1864 1876 

LEM 033040 2976 29950 

LINCNT 002272 9598 1810¢ 19498 1984¢ 2146+ 22234 2224@ 2230 2237 2242 24098 2413¢ 2414 
241 : 

LNO1TB 070212 4557 46550 

LOBYTE= 000377 951¢ 1595 

LOE = 040000 910 

LOOP 033350 2923 2946 30000 

LOT = 000010 910¢ 

LPBUF 002446 1009 12284 12426 1471% 1669 

LPCSR 002352 1003@ 1156¢ 1223 1235¢ 1246« 1251* 1307 13476 1383¢ 14702 1471 1643 = 1648* 
1652 1660 1670 1675¢ 16836 16916 1694¢ 1699% 1717 2379 23820 24326 2453 
2470 =«-_- 2479 3 

LPDROP 004060 1092@ 1384 


CZLNADO LNOL TEST 


CZLNAD.PL1 


LPERR 


LPINTR 
LPVEC 


004126 


002116 


DNMAC X24.07-565 


10-APR-84 08:55 


OHOOMOHOHOHOOOOA 


Gle 


10-APR-84 09:07 PAGE 7-11 
CROSS REFERENCE TABLE 


1452 


1654 


1685 


-- USER 


1695 


1727 
2376 
2447 


SEQ 0149 


CZLNADO LNO] TEST 
CZULNAD. 


L soTe 
isOTyYP 
iL $DUT 
L$SOvTy 
L SEF 

L SENVI 
LSETP 
LSEXP1 
L SEXP4 
LSExPsS 
L $HARD 
L SHIME 
L$HPCe 
L $HPTP 
L SHW 
L$sIce 
LSINIT 
L $LADP 


Pil 


033352 


AHHOOHOOHOHOHOHOOOHAM NAHOHOHHHHHAAGAAAAAHHAAOAAO 


7692 
7690 
769% 
769 

769 
7690 
769@ 
769¢ 
7699 
7690 


DNMAC X24.07-565 
10 -APR -84 08:55 


7918 


53329 


8034 
1419¢ 
53619 


11334 
1460 


774¢ 


53498 


a aes 


10-APR-84 09:07 PAGE le 


= 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1136* 1144+ 1285¢ 1288+ 1298 1355¢ 
1462 1590e 1593 1646¢ 1662¢ 1673« 
1403 1439 1458 1564 1589 1628 
1541¢ 

2485 25084 


1384 
1697« 


2126 


14024 
1727¢ 


2374 


1403 
24476 


1404 
24596 


SEQ 0150 


14056 
24764 


Lie 


CZLNADO LNO1 TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-13 SEQ 0151 


CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

L10023 037456 3201 32378 

L10024 045072 3493 3581¢ 

L10025 050420 3736 37590 

L10026 052014 3868 38790 

L10027 054070 4002 40484 

L10030 063604 4280 4335¢ 

L10031 070252 4565 4661¢ 

L10032 101614 4957 5079¢ 

L10033 104622 5228 5259¢ 

L10035 105304 53190 

L10036 105334 5332 53360 

L10037 105414 5349 53520 

MARDEF 032672 2975 2993@ 

MARTBL 067036 4501 45944 

MAXERR 002266 832e@ 1151 

MGTINT 105414 5350 5354¢ 

MIDSEC 037445 3174 32330 

MIDSEQ 043561 3530@ 3568 

MISCON 103532 5183 S232e 

MRESET 1531¢ 

MSGADR 002706 1024e@ 8§=«1240 13426 

MSGCNT 002606 1018@ 1241 1344 

MULINE 017157 2218 2252¢ 

NEWPG 073340 49659 

NLMODE 027264 2716 2745¢ 

NO 057661 42920 

NOCLCK 007043 1520 1535¢ 

NOINTR= 000003 927@ 1330 

NONSBF1L 014507 1978 2052¢ 

NONBUF 014124 1943 20244 

NONCHR 014010 1942 20214 

NORMAR 066673 4497 4509 45850 

NOSPA 057656 42910 

NOTAB 0 6 3694 3700 37440 

NOTIM 007105 1521 1536¢ 

NOTUND 050117 3687 3731 37460 
047770 3685 37418 

NRET16 606542 1440 15290 

NP5T17 006625 1441 15350¢ 

MsELTB 074070 4850 49820 
015150 20868 

NVEC 053203 4009 402190 

ODDTB 074142 4985¢ 

OFFJU 066657 45834 

OFF JUS 063551 4211 4232 4244 4266 43286 

OFFSET 052666 40074 

OFFSPA 057645 42886 

OFFUN 067437 4607 46169 

ON 057654 42908 

ONEFIL= 000001 ae 8 2654 3015 4061 4348 4674 5092 S272 

ONESVN 043534 3474 35280 

ONETEN 043520 3437 35270 3564 

ONJU 066652 4582¢ 

ONJUST 063544 4204 4219 4241 4258 43270 

ONSPA 057651 42894 

ONUN 067411 4606 46146 


J1le 


CZLNADO LNO] TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-14 SEQ 0152 

CZLNAD.P1i1 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

OUN 050411 3723 3753¢ 

OVTBUF 003114 10520 §61429« 1430 15244 1525 17144 1715 1799 1611 18154 1816 1860 Ss 
18684 1869 1872 1877 18854 1886 1950 1975 1985 2008 2013 2014 2137 
2138 2144 2149 2150 2156¢ 2157 2225 2239 22434 2244 2301 2306 2308 
2314 2317+ 2318 2325 2330 2332 2338 2415 2416 2420 2421 2482+ 2483 
2603 2604 2720 2725 2726 2732 2733 2736 2903+ ¢ 2905¢ 29064 2907+ 
2908e 29094 29104 2914 2915 2917 2921 2926 2927 2929 2930 2933 2937 
2938 2940 2941 2945 7. 2948 2949 2953 2959 2962 2971 2978 
2979 2983 3135 3136 %$%3$1374 #$=$%31384 13139 3140 31414 3157 3158 3159 3161 
3164 3166 3170 3173 3175 3178 3161 3185 3187 3190 3192 3194 33904 
33914 33920 33934 33944 3395« 3396¢ 33970 33984 3399 34006 34014 3402+ 3403 
3404e 34054 14 3415 3417 3421 3423 3438 3439 3440 3445 3447 3450 
3467 75 3489 3555 3556 3557 3560 3561 3569 3570 3571 3574 3575 
3674e 3675 3676 $$.$3677# +£=%}4:6784 3679 3680+ 3681+ 3697 3698 3705 3707 3709 
3716 3732 38472 3857 3859 38656 36864 4192+ 4193 4194 41954 4196+ 4200 
4212 4216 4218 4229 4233 4245 4253 4276 4477 4478+ 4479¢ 4480+ 4481¢ 
44820 4483% 44842 44854 4486+ 4504 4506 4508 4524 4531 4540 4544 4547 
4561 4606 4607 4635 4906e 4909 4910 49116 49124 49134 4945 4946 4947 
4948 4952 S173¢ 5174 +%|(.5175« 51766 5177¢ 5178 $5179 5180+ 5192 5195 5206 
5209 5226 

OUTTIM 003702 1072@ 1139 

OVTEST 020372 296 2343¢ 

OSAPTS= 000000 748@ 769 

OSAU 000000 748¢@ 769 

OSBGNR= 0900000 748¢ 769 

OSBGNS= 000001 7480 767¢ 769 

O$0U 000000 7480 769 

OSERRT= 000000 748@ 769 

O$GNSW= 000001 7488 767¢ 769 

OSPOIN= 000001 748¢ 767¢ 769 

OSSETU= 000000 748¢ 769 5361 

PAPRDY 022604 2428 2494S 

PAPRSW 022356 2405 24914 

PAPSWI 003402 1067¢ 22 

PAPSW1 022462 2406 2492¢ 

PAPSW2 022542 2407 2493¢ 

PAPTST 022673 2412 : 

PARAM1 043256 3513¢@ 3555 3569 

PARAM2 043272 3514e@ 3554 3555 3556 3570 

PARAMS 043306 3515¢@ 3554 3555 56 3574 

PARAM4 043322 35160 3554 3556 

PARAMS 3336 35179 3554 3556 3557 3562 3574 

PARAM6G 043352 3518@ 3554 3560 35568 | 

PARAM7 3 3519@ 3554 3557 3560 3561 3569 3575 

PARAMS 043402 3 3554 3561 3576 

PARAMS 043416 3521¢ 3561 ; 

PARM10 043446 35230 3560 

PARTBL 044140 3418 3554¢ 

PAR2 043454 35240 

PARS 043470 3525¢ 

PARS 043504 35268 

PATCH 105500 53600 

PATTER 011770 1793 1794 18244 

073722 49720 
PLOC 007176 15384 
PLP 042636 3468 35004 


K1le 


CZLNADO LNOI] TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-15 SEG 0153 

CZLNAD.P1i1 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

PLPTBL 045060 3578¢@ 

PLPS 043134 3504¢ 3578 

PLPS 043143 3505¢ 3576 

PLPS 043152 66 3506¢ 3578 

PLP9S 043161 3507¢ 3578 

PL1 051773 3851 3853 3856 38744 

PL2 051777 3852 3875¢ 

PL3 052005 3854 3876¢ 

PNT = 001000 G 910¢ 

PORSEL 020423 2295 23454 

PORSEQ 066576 4576 4578¢ 

PORSQ@ 013150 1881 1895¢ 

PORT 066374 4498 45694 

PRAM1O 043432 3522? 

PRI = 002000 G 9104 

PRINTR 002314 970¢ 1283 1288 1369« 14306 15254 1709 1710 1712 17156 1787s 1790 1791i« 
18114 18164 18514 18564 1857s 1865+ 1869+ 1877« 1881+ 18844 1886 1887+ 1888+ 
1941 19426 19734 # 2014@ +$%}?:$1235@ 1421254 21306 $2135¢ 21384 21424 #$£=2144« 2147s 
2149% 2150e = 21574 +=+%22156@ $= 22178 +#$£=®(}2218& +#$£=2239% 22448 +$+%_;}|n“2csi6 2293 2294% 22954 2296s 
2306 23148 +1£=+%23184¢ 2323 23308 2338% 2388+ 2389% 24124 2416% 24216 2483 2583s 
25844 25854 & 7a & Q& 25926 2593s 25954 25994 2600+ 14 2602s 
2604e $$2605¢4 * 2714 +=|(‘.?2:715¢ 2716 2717 #$=27186 $§}27198 2725 =2726* $=%2728¢ 27296 
2730e 27324 $$j.2733e 2735 2736 2737 #$£=j.}2738% 2899¢ 2900 2901 29024 29124 29144 
29154 29174 29194 29214 29264 2927s 29294 29304 29334 29374 2938+ 29404 29414 
2943e 2947 2948% 29494 2953e 29574 29594 s * * 2968+ 29694 2971 
29754 2976e 2978 2979% 29826 29834 31426 31436 31446 31454 31464 3147*« 31484 
31492 3150e 3151« 3152« 3153 31544 31554 31566 3157e 31566 3159s 3161 3164 
3166« 3167 3168s 31702 3171¢ 31736 3174¢ 3175S¢ 31764 31784 3179e 31814 3182+ 
3183s 31842 3185¢ 3187 31906 31926 31936 31944 3195¢ 31964 3409s 34106 
34114 34122 34144 3415+ 34172 3420s 3421¢ 34236 3428+ 34344 3437e #3438 3439 
34404 34446 3445+ 34476 3450e 34554 34614 & 3467¢ 3470e 34744 3475¢ 
3479e 34806 34842 3487+ 3488 3489 35490¢ 3491¢ 36822 3683+ 3684+ 3685+ 3686+« 
36874 9e 3690+ 3691 36936 36946 36954 3697s 3698+ 37004 37012 37026 3704¢ 
37054 3707¢ 3709% 3711¢ 37i2¢ 37146 3716¢ 3719 3720¢ 37224 37234 3724s 37254 
37276 3728% 37300 #£373i¢ 37320 37334 3734¢ 38426 38436 38442 3845 38464 3850 
3851 38526 38534 38542 3856 3857¢ 3859¢ 38604 3862+ 3864 3865+ 38664 39862 
3987 3988« 3989 3990e 39942 39966 3997 3998 39992 40002 4197 4198 4199s 
4200¢ 4204+ =4205¢ 42060 4207 4208 4209 42118 4212 4214+ #=$§j.4215e 4216 4218s 
4219e 42220 4225 4227¢ 4228e 4229% 42310 42322 jj4233e 42360 4239% 4241 $£=4242+s 
42434 4ehda 42454 4247s 42526 42536 4254s 4255¢ 4257 ® 426264 42654 
4266 42700 4273 4275 42766 4277e 42780 44872 44882 44922 4496 44972 4498s 
44994 4500 4503e 4504+ 4505¢ 45064 4508+ 4509s 4Si7e¢ 45226 4523 45244 4526 
4527+ 4528+ 4529¢ 4531+ 4536 4537e 45400 4541% 45430 45442 45462 4547« £44555 
4559 4561+ 45622 4563 4840+ 4841+ 48422 468430 48440 4845+ 48462 48472 4848s 
4849% 4852s 4853e 4854+ 4855+ 4856+ 4857+ 4859e 4860+ 4861+ 4862+ 4914 49i7« 
492264 4927+ 49326 4935¢ 49364 4937¢ 4936 4942¢ 49436 4945 494664 4947 4948 
4952 4953« 4954+ 5181+ 51626 5183« 5187¢ 5191« 51920 5194 5195e 5200 S201 
5205 5206¢ 52094 52134 5214% 52156 5216e 5217¢ 5218e 5219 S52204e« S221¢ 5222s 
S224 $2254 5226s 

PRIOO = 000000 G 910¢ 1428 1523 1609 1708 

PRIO1L = 000040 G 910% 

PRIO2 = 000100 G 910¢ 

PRIO3 = 000140 G 9104 1692 

PRIO4 = 000200 G 9109 1482 1566 1681 1682 1693 5290 

PRIOS = 000240 G 9104 

PRIO6 = 000300 G 9104 1506 1607 5309 


le 


CZLNADO LNO1 TEST DNMAC X24.07-563_  10- :07 PAGE 0 
CZLNAD.P11 10-APR-84 08:55 CROSS AREF ERENCE TABLE -- dseR SYMBOLS _— 
PRIO7 = 000340 G 9109 1586 

PRTCHR 013066 1851 18930 

PRICTL 016150 2130 2165¢ 

PRTEN1L 073743 4862 49730 

PSSU 067477 4541 4621¢ 

PTABAD 002312 969¢ 

PTLINE 051711 3845 3872? 

PUD 032522 2902 2989 

QUIET 005306 1369¢@ 1716 1812 1817 1866 1870 1878 1889 1974 2009 2015 2155 2156 


2240 2245 2307 2315 2319 2331 2339 2484 2594 2596 2607 2739 2980 
2984 3197 3430 3436 3449 3457 3469 3462 3486 3492 3708 3718 3735 
3861 3867 4001 4210 4265 4271 4279 4564 4918 4925 4928 4933 4949 


RDYERR 003360 1066@ 1664 

READY 007006 1454 15342 2408 2430 2452 2456 2469 2473 
RECTBA 074260 4925 49880 

RECTBB 074322 4930 4989% 

RECTBL 074216 4920 4987% 

RECTBO 074154 4915 49860 

RECO 075014 4986 S025¢ 

REC1 075214 4987 5027¢ 

REC1A 075414 4988 5029¢ 

RECIB 075614 4989 5031? 

REC1O0 100014 4986 4987 4988 4989 5057¢ 
RECi1l 100214 4986 4987 4988 4989 50610 
RECi2 100414 4986 4987 4988 4989 S065 
REC13 100614 4986 4987 4988 4989 5069¢ 
REC14 101014 4986 4987 4988 4989 5071¢ 
REC1S 101214 4986 4987 4988 4989 50734 
REC16 101414 4986 4987 4988 4989 

REC2 076014 4986 4987 4968 4989 5033 
RECS 076214 4986 4987 4988 4989 5035¢@ 
REC4 076414 4986 4987 4988 4989 5037¢@ 
RECS 076614 4986 4987 4988 4989 50390 
REC6 077014 4986 4987 4988 4989 5042¢ 
REC7 077214 4986 4987 4988 4989 5045¢ 
RECS 077414 4986 4987 4988 4989 5049¢ 
RECS 077614 4986 4987 4988 4989 5053¢ 
REINIT 004027 1075@ 1790 1887 1941 2125 2217 2293 2585 2605 2714 2737 2899 3142 


3195 3408 3490 3682 3735 3842 3865 3999 4197 4277 4487 4562 4840 


REPCNT 002646 10219 1238¢ 1239 1345* 14664 15994 24426 
RESET1 006735 1446 1532¢ | 
RESVEC 007204 G 15620 1601 1707 

RLTV1 104567 S217 5253¢ 

RMANL 027337 2719 2735 27464 

SCALE 033340 2919 29970 

SECCNT 066566 4490 4577¢ 

SECO 066554 4489 4576¢ 

SEC1 066415 4570¢ 

SECe2 066430 4571% 4606 

SECS 56 4523 45726 

SEC4 0665135 4537 45734 

SECS 066542 4574¢@ 4635 

SELBGN 074406 4852 49924 


SELDEC 004031 1076% 1856 1888 2584 2606 2715 2738 2900 3143 3196 3409 3491 3562 


Mie 


CZLNADO LNOL TEST DNMAC X24.07-563__10-APR- : 

COLNAD Pil 1O-APR-84 DO¢55 crdSs REFERENce TABLE Ce ste sympots SEQ 0155 
3569 3683 3734 3843 3866 #4000 4198 4278 4488 ###4563 4576 4635 4841 
4848 4937 4954 5182 5225 

SELEND 074502 4854 50030 

SELPIX 004036 10770 3562 3569 4576 4635 

SELL1 073444 4846 49680 

SEGALL. 074043 49800 

SEQEVE 074000 49780 

SEQODD 074017 4979¢ 

SEQTAB 104364 5188 52380 

SFPTBL 002264 G 6260 

SKIP3 004046 G 10799 3844 3846 4257 4265 4273 

SMANL 027345 2730 «27478 

SPACES 050332 3704 37508 

SPAJUS 057626 4215 4228 4243 42860 

SPAOFF 057612 42840 

SQTAB1 104376 5202 52398 

STACHR 017140 2220 2223 2227 22384 22490 

STATER= : 9230 1258 1308 

STATUS 002506 1012@ 11548 1233¢ 1245 1250e 1257« 1303 1309 1314 41316 13216 132268 1381s 
1491* 15958 1644¢ 16614 1671« 17008 24396 

STHOR2 104 5215 52508 

STOPS3 037415 3168 32310 

STRCNT 002302 9630 

STTAB 047775 3695 37420 

STVER4 067320 46064 

STVR4 104533 5214 52498 

SUBSEC 103736 5201 52340 

SVCGBL= 000000 -7a8e 7588 (769 774 786 790 791 803 14 826 1419 1585 5332 

SVCINS= 000000 7480 755% 769 786 790 791 803 818 826 1134 1139 1145 #1317 
384 (1388 4 1389 1404 1422 1423 1424 1425 1428 1432 1434 +#« #4©41438 + 1440 
1441 1443 1444 #1446 #1454 «©1460 1461 1482 #1498 #41506 1509 1520 #1521 
1523 1526 1541 1866 1586 1587 1603 1607 1609: 1610 1647 1654 1664 
1674 1681 1682 1685 #1692 1693 1695 1698 1708 # ###1719 + #«®11728 1730 #1737 
1752 1818 #1829 1891 #18699 2016 #2089 «©2161 #2185 46 2341 2348 
2366 2367 2368 # #2371 2381 2405 2406 2407 2408 #2422 2428 #2430 2449 
2450 2451 2452 24 2455 2456 2460 2467 2468 #2469 2471 «92472 ~# 2473 
2477 2485 2508 D 2641 2740 2750 2985 3001 3201 3237 #«©«4+3493 3581 
3736 3759 3868 #3879 #«#4«®\4002 4048 #4280 4335 #44565 #4661 £44957 #45079 5228 
5259 5290 5309 5319 5332 S334 5335 5336 5349 5350 5351 5352 5361 

SVCSUB= 000000 748@ 47570 

SVCTAG= 000000 748@ 759@ 810 818 835 1454 1541 1574 1584 1610 1730 1737 ~»#17S2 
1829 1899 2089 2185 2260 2348 2408 #2430 2452 2456 2469 2473 
2641 27503001 37 3581 3759 3879 44048 4385 #4661 #495079 #5259 5319 

SVCTST= 000000 7480 §756@ 1627 1784 #1850 1938 2121 2210 2288 # #2364 «2581 2712 2897 
3134 -3388)«=Ss( 36730 s«384002S's«398S©~=Ss«‘iBBCC«AA22s«ABRBSC#S;169 

SYM = 000037 11290 | 

SYMD = 000007 11326 11336 11370 11366 1143@ 1144@ 11540 1174@ 1176@ 1177@ 1181@ 1183¢ # 1188¢ 
11986 12290 12330 1234@ 12380 12430 1244@ 1245@ 1250@ 12570 1 1309@ 1381¢ 
1386@ 14050 1431¢@ 1458@ 14599 1462@ 1471@ 14790 1480@ 1486@ 1491¢ 15672 1568¢ 
15899 15900 15930 15956 16280 16420 16440 16450 1653@ 1661@ 1663@ 1671@ 1672 
1683¢ 16840 16916 16940 1696@ 17000 17260 17930 1 1803@ 1606@ 18102 19492 
19549 19610 19750 19840 19890 19960 20100 2126@ 21 2151@ 2224@ 22268 2232 
22378 22384 23026 2309 23240 23260 23330 2374@ 23770 2378@ 2380e 2398 
54130 2423¢ 24310 24390 24450 24460 24580 24649 2465@ 2475¢ 25978 27248 27318 


Nie 


CZLNADO _LNO1 TEST DNMAC X24.07-563__10-APR- 9:07. PAGE 7- 

EZLNAD-PIi | 10-APR-84 00:55 CROSS REFERENCE TABLE “~ USER SYMBOLS SEQ 0156 
29130 2918 29320 29440 53120 53140 

SYMS = 000007 1132@ 11330 1137@ 1138@ 1143@ 11440 11540 11740 11760 11770 11819 1183@ 11886 
1198@ 1229 1233@ 12340 12386 1243@ 12440 1245@ 12500 12576 13099 13610 
13860 1405@ 14310 1458@ 14599 14620 14710 14790 14800 1486 14916 15670 15689 
1589 1590@ 1593@ 15950 16280 16420 16440 16456 16530 16610 16634 16710 16720 
16830 16840 1691@ 1694@ 1696 17000 17260 17930 18000 18030 18064 18100 1949¢ 
1954@ 19610 1975@ 19840 1989 1996@ 2010@ 21266 21299 21516 22249 222 2232 
22378 2238¢ 23000 23020 23090 23240 23260 23330 23740 23779 23789 23808  2398¢ 
24130 24230 2431 24390 2445¢ 24460 24580 24640 24650 24750 25976 27246 27314 
29130 29180 29328 29440 53120 5314¢ 

S$LSYM= 010000 748@ «©=6.810@S ss 818@ = 835@) «=:1454@ «= 15410 91610 + (17308 1737 1752@ 18299 18990 20894 
2185@ 22600 2348@ 24080 24300 24520 24560 24696 24730 25080 264:3 2750@ 30019 
3237@ 35810 37599 38799 4048@ 43356 46614 50799 52599 53199 53360 53529 

31 067452 4526 4529 46180 

S2 067456 4527 4528 46199 

TABLDA 004522 1170 1202 

TABLE1 016424 2133 += 21800 

TABLE2 016460 2140 = 2181¢ 

TABMS 043174 3412 

TABS 050344 3693 3751¢ 

TABSTR 017142 2220 22514 

TABTST 036560 3144 3206¢ 

TABUCT 067274 4515 46080 

TABUND 067246 4514 4606 

TBMAR1 036614 3147 32098 

TOONE 051755 3860 38730 

TEM 032724 2994 

TEXT 061614 4309¢ 4325 

TEXTBL 063506 4259 4267 —4325¢ 

TEXTBP 063526 4260 4268  4326¢ 

TEXT1 062031 4311¢@ 4325 

TEXT2 062251 4313@ 4325 

TEXTS 062476 4315@ 4325 

TEXT4 062700 43178 4325 

TEXTS 063110 43199 4325 

TEXT6 3257 43216 4325 

TICK 105310 5310 5311s 5314a 53220 

TIME 105 53i2« 5321¢ 

TIMOUT= 00000 924@ 1320 

TOPBOT 025316 2588 26180 

0437 3548@ 493568 4386 3571s 3574 «= 3575 
044127 3551¢ 3568 3571 3574 3575 

TOPSEC 037435 3171 32320 

TOPVEC 053074 3989 40170 

TSET 067337 4606 46110 

TSTMRA 042514 3411 34980 

TSTMRB 042552 34999 3570 

TVEC 053665 4009 4038¢ 

TXERR 003655 1071@ 1134 

TXNOIN 003727 1073@ 1145 

TSARGC= 000001 7699 13840 13889 14400 14410 14460 152 15210 2405@ 2406@ 2407@ 2428¢ 2449 
2450@ 24510 24540 2455@ 2467 2468@ 24718 24720 

TSCODE= 001052 14540 24086 24300 24520 24560 24699 2473@ 53340 5335@ 5350@ 5351¢ 

TSERRN= 000012 748@ 11340 11399 11450 16470 16640 16740 16980 17280 23810 24228 24608 2477¢ 

TSEXCP= 000000 53340 5335@ 53519 

TS$FLAG= 000040 14349 15266 17199 16180 18919 2016 21610 22460 2341¢ 2368¢ 23719 2485% 26089 


B15 


CZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-19 SEQ 0157 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
27400 29850 32010 34930 37360 38680 40020 42800 45650 49570 52280 
T$GMAN= 000000 7480 
TSHILI= 000377 5334e 53350 53510 
TSLAST= 000001 748@ 653610 
TSLOLI= 000001 53340 53350 53510 
TSLSYM= 010000 748@ ©. 810 818 835 1541 1610 1730 1737 «1752 1629 1699 2089 #2185 


TSLTNO= 000024 5361¢ 
TSNEST= O00000 748@ 766¢ 774@ 7780 8030 8100 8140 8180 8264 83590 897% 9006 14109 


TSNSO = 000010 7660 897 900@ 1410 1416@ 1612 1616@ #1754 17699 1831 1845¢ 1901 19159 
2091 2105@ 21686 22008@ 2261 2273e@ 2350 23540 2510 25138 2642 2658¢@ 2751 
2765@ 3014 3017@ 3239 3243@ 3562 3596@ 3760 37750 3880 38959 4049 4065¢ 
4336 4352@ 4662 46789 5080 5096¢@ 52740 

TSNSi = OO00000 7740 778 8030 810 8140 816 6260 835 14196 #1541 15859 1610 16276 
1752 1784e@ 1829 1850e@ 1899 19380 2089 21219 2185 22108 2260 2268 2348 
23640 25618 2 2712e@ 2750 28970 1 3134¢@ 3237 33889 3581 36736 


TSNS2 = 000005 17250 1730 17340 1737 5$332e@ 5336 53490 5352 

TSPTNU= 000000 7480 

TSSAVL= 177777 7480 

TSSEGL= 177777 7480 

T$SUBN= 000000 748@ 16270 17848 1650@ 1938 21210 #+$§.22100 22880 23640 25818 27120 28978 31349 
3388@ 3673@ 38400 39850 41880 44720 482890 5169¢ 

T$STAGL= 177777 7480 

TSTAGN= 010040 7480 7740 8030 8140 826@ 14190 1585 16270 #17250 1734e@ 17848 #1850¢ 1938¢ 


TSTEMP= O00000 7780 7860 8100 6160 635¢ 6970 14100 1434@ 14540 15260 1541@ 15748 1584¢ 
1610@ 16120 17190 1730@ 17370 #$.w7S5S2ee@ 1754@ 1818@ 186290 #18310 #18912 #«*«1899¢ 1901¢ 
20160 2089@ 20918 2161@ 21858 21860 22460 22610 23418 23488 23508 23682 


37590 37600 38790 ® 40020 404680 40490 42800 4335@ 45360 4565° 4661¢ 
me mii 50798 S2260 52590 5$319e@ 5334e 53350 53360 53508 5351¢ 
8 & | 
TSTEST= 000024 7480 16270 17840 16500 1936@ 2121@ 221080 22880 23640 225810 27126 28972 31342 
33860 367350 38400 359850 41680 44720 46280 5169 5361 


TSTSTM= 177777 7480 818 1134 1139 1145 1384 1388 1389 1404 1422 1424 1428 1434 


2016 2089 2161 2185 2246 2260 2341 2348 366 368 23? 2381 2405 
2406 2407 2408 2422 2428 2430 2449 2450 2451 2452 2454 2455 2450 
2460 2467 2468 2469 2471 2472 2475 2477 2485 2508 08 2641 2740 
2750 2985 3001 3201 3237 5493 3581 3736 3759 3879 8002 4043 


wee 


CZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-20 SEQ 0158 

CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

TSTSTS= 000001 7480 86162780 817840 818500 19380 21214 22100 22880 23640 25810 27120 28979 4144¢% 
33860 3673@ 38400 #39850 41880 44720 48280 # £51699 

TSSAUT* 010002 814@ 818 

TSS$CLE= 010005 1585@ 1610 

T$$HAR= 010036 5332¢@ 5336 

T$$HW = 010001 803 810 

TS$INI= 010004 14190 1434 1526 1541 

T$$PRO= 010000 774@ 

T$$SOF= 010037 5349@ 5352 

T$$SRV= 010035 1725@ 1730 1734@ 3=61737 $2740 535080 5319 

T$$SW = 010003 826° 635 

TSSTES= 010033 1627¢@ 1719 1752 17840 18618 1829 1850@ 1691 1899 1938 2016 2089 21219 
2161 2185 2210@ 2246 2260 22880 341 2348 23649 2368 2371 2485 2508 
25812 2608 2641 27120 2740 2750 28978 2985 3001 313460 3201 3237 33889 
3493 3581 36730 3736 3759 38400 3868 3879 39850 4002 4048 4186860 4280 
4335 4472e@ 4565 4661 46280 4957 5079 5169@ 5228 5259 

Ti 007456 G 786 16278 

TLA 007472 1635@ 1706 

T18 010244 1640 1707¢@ 

Tic 007476 16354 1637¢@ 

T1LO 025724 G 786 2712¢ 

Til 027356 G 786 28972 

T1l2 033354 G 786 31340 

T13 037460 G 786 33880 

T14 045074 G 786 36730 

TiS 050422 G 786 38400 

T16 052016 G 786 39850 

T17 054072 G 786 41880 

T18 063606 G 786 44720 

T19 070254 G 786 48280 

Te 011226 G 786 1784¢@ 

T20 101616 G 786 5169¢@ 

T3 011774 G 786 18500 

T4 013204 G 786 19380 

Le. 015154 G 786 21210 

Té 016516 G 786 22100 

T? 017316 G 786 2288¢ 

T8 020440 G 786 23640 

T9 023476 G 786 25814 

UAM 000200 G 9100 

UNDER 053030 3988 40110 

UNDERL 067415 4607 4615¢ 

UNOMSG 050170 3690 3747¢@ 

UNDON 047764 3684 3689 3722 37400 

UNDROF 053034 3997 40120 

UNDSEQ 104463 5238 39 52440 

UNDTTL 050052 37450 

050265 3714 37498 

UNIT 002306 965¢ 

UNOF 063562 4225 4231 4239 4247 43300 

UNON 063556 4222 4236 43290 

vuT 002336 9840 1386+ 1387 1452¢ 14866 

VUTEQ@O 003760 10740 81388 

VECSEQ 104440 5238 5239 52450 

VECO 053253 4009 40230 

VECOL 067761 4635 46406 


D1 5 


SSENABSE YY? "PST apraa BOTEE X°4-07 S05 cpd Qc ARB Pee! Phar PASE USA symaors 


VEC1 053350 
VERDEF O32622 
VERDES 032661 
VERPOL 053040 
VERPO3 053046 
VERPOS 053055 
VERPO7? 053064 
VERS.1= 000001 
VERTBL 024642 
VERTB1 036640 
VERTB2 036762 
VERO 066627 
VERS 066664 
VERS 067443 
VER6 067462 
VER? 067734 
VER8.S 067743 
VF IVE 025402 
VF OUR 025373 
VFUCMD 002342 
VONEHF 025346 
VPA 020430 
vVSIx 025411 
VSIXHF 025420 
VTHREE 025364 
vTwo 025355 
WORK 003110 
WORK 1. 003112 
x = 000040 
XHOR 037363 
XVER 037106 
X$ALWA= 000000 
X$FALS= 000040 
XSOFFS= 000400 
X$TRUE= 0000 

x0 016246 
x1 016260 
All 016412 
K2 016272 
x5 016304 
x4 016316 
x5 016330 
x6 016342 
x7 016354 
x8 016366 
x9 016400 
SBGNLE= 177777 
$BRUMP= 000000 


40270 
2960 
2969 


401358 
4014¢ 


49169 
1711 

2612¢ 
32110 
32150 


29910 
29920 


1786 


2181 
2161 


1136 
1239 
1325 
1492 
1655 
1613 
1683 


1977 


1481 
2936¢ 
1684¢ 


2051 


18590 
2937 
1658¢ 


2122 


1862 
3696 
1880 


2214 


1871¢ 
3706¢e 
19446 


2290 


1874 
3707 
1949 


19546 
38484 
1979¢ 


1961¢ 
1984 


1989¢ 
29246 


19964 
2928 


SEQ 9159 


27240 
29326 


CZLNADO LNOL TEST ONMAC X24.07-563_ 10-APR-84 09:07 PAGE 7- 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0160 


2326 328 2333 2335 2340 2370 2377 2379 2384 2414 2418 2419 2425 
2445 2453 2457 2462 2464 2470 2474 2480 2591 2598 2724 2727 2731 
2734 2913 2916 2918 2920 29220 2925 2925 2928 2931 2934 2939 
2942 2945 2946 2951 29520 38 2961 2967 2970 2977 2981 3160 3162 
3163 3165 3169 3172 3177 3180 3186 3186 3189 3191 3413 3416 3419 
3424 3427 3429 3433 3435 3443 3446 3448 3451 3454 3456 3462 
3478 3481 3483 3485 3706 3710 3715 3717 3721 3726 3848 


4530 4542 4545 4554 4556 4558 4560 4851 4858 4916 4919 4921 4924 
me 4929 4931 49354 4941 4944 4950 4951 5190 5193 5204 5208 5310 
SERFLG= 000400 7500 1132@ 1133@ 1157@ #=%.11380 11430 11440 #«°911546 11550 11566 11696 11706 1171¢ 
1172@ §68©1174@ 1176@ $1177@ «59111810 11820 11834 1186@ 11899 11930 1196@ 11989 
12280 12290 12350 1234@ 1235@ 12380 124060 12410 «12420 12430 12446 «#412459 ~=#« 12469 
1250@ 12510 i257@ 1258@ 12846 12870 12880 12986 13086 1 1315 13200 1330¢ 


1596@ 1597@ 1599¢ ® 16260 16420 16440 16450 16460 16486 16539 16619 16620 
1663¢@ 16698 1671 16720 1673@ 1675@ 16830 16840 16919 16949 16969 16978 1699¢ 
1700@ 17140 1726@ £=1727¢ 7 17360 17930 1795@ 17970 17999 18008 18019 1803¢ 
1804@ 18060 1 1610@ 18150 18658@ 18590 18600 18610 18620 18642 1868¢ 
18718 18720 18735@ 1874@ 18760 1 1943@ 19440 19486 19496 19508 19548 19559 
1961@ 1962@ 19680 19699 1975@ 19780 19790 1983@ 19840 19856 19899 19902 19962 
1997@ 2003@ 2004@ 20108 201 21260 21260 21 21316 2133@ 21378 21408 21460 
2151@ 21560 2220@ 2223@ 22240 22250 22260 22278 22 22319 22328 22379 22380 
22439 2300@ 23018 23020@ 230354 23508¢ 23100 23120 23138 23178 # #23242 
23250 23260 23278 23320 25330 23340 23360 233780 23730 23749 #=#=(23778 «+2378 
23809 23820 23930 2398¢@ 24040 24100 24130 24156 24208 24238 24268 24299 
24310 2432@ 24370 3 24410 24420 24450 24460 24478 24488 24584 
24590 24640 24650 e475@ 24760 24798 24810 24820 25908 25978 26038 27204 
2721@ 27220 =27230 e2724@ 273510 #290350 & 29068 29072 29088 2909% 29102 
29130 29180 2 @ 26e@ 29320 29350 29360 29290 a 29672 
2977@ 3135@ 31366 31370 3136@ 31590 31400 31419 31600 31630 31692 31778  3186¢ 
3189@ 33 3391@ 3392@ 33930 33940 3395¢ 33960 3397¢ 33980 33992 34012 
3402@ 34030 34040 3413@ 341680 3425@ 34260 34319 34320 34419 34422 34462 
34520 6634530 3458¢@ 34599 34760 $34770 #34830 £36740 36768 36772 36782 #$£%§,679¢ 
36800 36810 36960 37060 3715¢@ 37219 38470 38480 38492 3863¢ 39912 39922 41922 
41939 41940 4195@ 4196@ 4215@ 42200 42340 42590 4267@ 42680 44772 4478¢ 
44790 446800 44810 44820 448350 44840 4485¢@ 44860 4489¢ 44900 4501@ 45142 45152 
4525e@ 45386 45390 45520 4°53¢@ 4557¢@ 4850@ 49080 4 49109 49119 49122 4913¢ 
49150 49200 49250 4930¢@ 44390 49400 4944@ 5173@ 51742 #+$.‘5175@ 51768 S1772 «51782 
5179@ §65180@ 5188@ 51699 S202ee S203@ S290@ 5311@ S3i2e 535140 53162 

$F SAND= 000310 7506 1151 1175 1180 1192 i223 1227 1239 1283 1294 1303 1307 1314 
1316 1326 1334 1346 1387 1403 1439 1519 1565 1602 1606 1643 1652 
1 1670 1717 1794 1880 2134 2141 2152 2230 2370 2379 2414 2419 


SF SBAD= 000401 7508 #1129 1132 1133 1137 1138 1145 1144 1151 1154 1155 L156 1169 


F13 


CZLNADO LNOL TEST DNMAC X24.07-563__410-APR-84 09:07 PAGE 7- 
CZUNAD.P11  10-APR-84 08:55 CROSS REFERENCE TABLE © USER SYMBOLS 6 0161 


2597 2603 2720 2721 2722 2723 2724 2731 2903 2905 2906 2907 
2908 2909 2910 2913 2918 2923 2924 2928 2932 2935 2936 2939 
2944 2946 2967 2977 3135 3136 3137 31368 3139 3140 3141 3160 


SF $BLA= 000170 750¢ 

$F SCAS= 000150 750¢@ 

sF$DEC= 000220 750@ 1174 1190 1431 1433 1653 1655 1684 1686 2146 2148 2724 2727 
2731 2734 2925 2934 3849 3855 

sF$D0 = 000340 7508 £1175 1294 1316 1403 1565 1717 2134 2141 2230 2591 3419 342? 
3433 3443 3454 3460 3478 3993 4261 4269 4491 4502 4516 4542 4554 
4558 4851 4916 4921 4926 4931 4941 5190 5204 

SF SFAL= 000405 750@ #£=1129 

$F $GO00= 000400 750@ 1129 1132 1133 1137 1138 1143 1144 1151 1154 1155 1156 1169 


CZLNADO LNOL TEST 


CZLNAD.P11 


SFSIF = 000110 


SF SINC= 000210 


SF $LO0= 000200 
SF$NAM= 000160 
SFSNO = 000403 


DNMAC X24.07-563 
10-APR-84 08:5 


CROSS REFERENCE TABLE 


Gis 


Usta 


md 4 


CZLNADO LNOL TEST DNMAC X24.07-563_  10-APR-84 7. PAGE 7- SEQ 0163 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERE e ABLE -- US R SYMBOLS 
1597 1599 1602 1604 1606 1628 a 1643 1644 1645 1646 1648 1652 


2481 24862 2591 2597 2603 2720 2721 2722 2723 2724 2731 2903 

2909 2910 2913 2916 2923 2924 2925 2928 
2932 2935 2936 2939 2944 2946 2967 2977 3135 3136 3137 3138 
3139 3140 3141 3160 31635 3169 3177 3186 3189 3390 3391 3392 3393 
3394 3395 3396 3397 3396 3399 3400 3401 3402 Of 3413 


3678 3679 3706 3715 3721 7 3848 3849 3863 3991 
3992 3993 4192 41935 4194 4195 4196 4213 4220 4221 4224 4234 4235 
4238 4259 4261 4267 4268 4269 4477 4478 4479 4480 4481 44 

4483 4484 4485 4486 4489 4490 4491 4501 4502 4514 4515 4516 4525 
4538 4539 4542 4552 4553 4554 4557 4556 4850 4851 s 4910 


5202 5203 5310 5311 5312 5314 5315 5316 

$F $OR = 000320 750@ 1151 1175 1180 1192 12235 1227 1239 1283 1294 1303 1307 1314 
1316 1326 1334 1346 1387 1403 1439 1519 1565 1602 1606 1643 1652 
1660 1670 1717 1794 i 2134 2141 2152 2230 2370 2379 24la 2419 
2453 2470 2591 3419 3427 3433 3478 3993 4221 
4224 4235 4238 4261 4269 4491 4 4516 4542 4554 4558 4851 4916 
4921 4926 4931 4941 35190 5310 5315 

sF $RTI= 000350 750¢ 

SF $RTN= 000300 750 

SF SSEL= 000140 750@ #1129 1131 1136 1141 1149 

SF STHE= 000330 750@ 1151 1180 1192 i223 —Ss«dl2e7 1239 1283 1303 1307 1314 1326 1334 
1346 1387 1439 1519 1602 1606 1643 1652 1660 1670 1794 1880 2152 
2370 2379 2414 2419 2453 2470 2946 4221 8224 4235 4238 5310 5315 

SF STRU= 000404 7508 1131 1136 1141 

SF SUNT= 000130 750@ 2222 2242 2411 2418 | 

SF $WHI= 000120 750@ 1175 1178 1180 1294 1316 1324 1356 1403 1406 1565 1569 1717 
1718 2134 2136 2141 2143 2230 2235 2414 2591 2598 3419 3424 3427 
3429 3433 3435 3451 34 34 3462 3478 3481 3993 3995 


3204 
SFSYES= 000402 750% 1129 1132 1155 1137 1138 1145 1144 1149 1151 1153 1154 1155 


CZLNADO LNOL TEST DNMAC X24.07-563__10-APR-84 09:07 PAGE 7- 
CZLNAD.P11 = 10-APR-84 08:55 CROSS REFERENCE TABLE ~~ USER SYMBOLS SEQ 0164 


2301 2302 2303 2305 2309 2310 2312 2315 2317 2324 2325 2326 
2327 2329 2332 2333 2334 2336 2337 2370 2372 2373 2374 2377 23768 
2379 2380 2 2383 2393 23 2404 2409 2410 2413 2414 2415 2417 


2720 2721 2722 2723 2724 2731 3 2905 2906 2907 2909 
2910 2915 2918 2923 2924 29 8 2932 2935 36 2939 2944 
2 2958 2967 2977 3135 3136 3137 3138 3139 3140 3141 3160 3163 
3169 3177 3186 3189 3390 3391 3392 3393 3394 3395 3396 3397 3398 
3399 3400 3401 3402 3403 3404 3405 34153 3416 3419 3426 3427 
3431 3432 3433 3441 3442 3443 3453 3458 3459 3460 
3476 3477 3478 3483 3674 3675 3676 3677 3678 3679 3681 3696 
3706 3715 3721 3847 3849 3863 3991 3992 3993 4192 4193 4194 
4195 4196 4213 4220 4221 4225 4224 4226 4234 4235 4237 4238 4240 
4259 4260 4261 4267 4269 4477 4478 4479 4480 4481 4482 4483 
4484 4485 4486 4489 4491 4501 4502 4514 4515 4516 4 4538 
4539 4542 4552 4553 4554 4557 4558 4850 4851 4908 4909 4910 4911 
4912 4915 4915 4916 4920 4921 4925 4926 4930 4931 4939 4940 4941 
4944 5173 5174 $175 5176 35177 5176 5179 5180 5188 5189 5190 5202 
5203 5204 3290 5310 5311 53 $313 5314 5315 5316 5317 

SIFLEV= 177777 750@ 1151@ 1153@ 11800 1186@ 11920 1194@ 12230 1227@ 1239 #12528 #=<§$12538 #«&;%1261¢ 
1283@ 12690 1303@ 13070 13140 #13198 13236 13260 13318 1332@ 1333@ 13348 #«1346¢ 
1348@ 1349@ 13508 1387@ 13900 1439¢@ 14420@ 1499@ 1507@ 15108 15178 15198 1522¢ 
1602@ 1605¢@ 1 1 1643@ 16499 16520 16 16652 16708 16762 1794¢ 
17980 1862e@ 21520 2154@ 23700 23720 23790 23838 24148 +2417@ 24198 #$=%(.}2427¢% 


$ISKO = 000001 1151 1153 1180@ 1186 # #11926 1194 1223@ 1261 £1283e 41289 « ©«1303@ #1350 @ 13872 


2154 2370@ 2372 23790 23835 24146 2417 2419@ 2427 2e453e 2461 24702 2478 


nad 42210 4223 42240 4226 4235¢@ 4237 4238@ 4240 5310@ 5315 53154 
8 

$ISK1 = 000001 12278 1253 1307@ 1335 13340 1349 

$ISK2 = 000001 1239@ 1252 1314@ 1332 13460 1348 

$ISK3 = 000001 1319@ 1323 13266 1331 

$LO == 177777 1129@ 11318 1136@ £11419 

SLOCTA= 177777 750¢@ 753@ 1129 1131 1136 1141 1149 1151 1153 1174 1175 11? 1180 


CZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-27 SEQ 0165 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 


1796 1798 1800 1807 1810 1813 1814 1658 1859 1861 1863 1867 1871 
1873 1875 1879 1880 1882 1885 1949 1954 1956 1963 1976 1984 
1989 1991 1996 1 2011 2128 2134 2136 2141 2143 2146 2148 2152 
2 2159 2222 2226 2228 22 2235 2242 2300 2302 2 2311 
2316 2324 23 2328 2335 2335 2340 2370 2372 2377 2379 2383 2384 
2411 2414 2417 2418 2419 2425 2427 2445 2453 2457 2461 2462 2464 
2470 2474 2478 2480 2591 2598 2724 2727 2731 2734 2913 2916 2918 
2920 2923 28 3 2936 2939 2942 2945 2951 
2958 2961 2967 2970 2977 2981 3160 3162 3163 3165 3169 3172 3177 
3180 3186 3188 3189 3191 3413 3416 3419 3424 3427 33 3435 
3443 3446 3451 356 34 3462 3478 3481 3483 3485 3696 
3699 3706 3710 3715 3717 3721 3726 3848 3849 3855 3993 3995 


aa sat 4934 4941 $3994 4950 4951 5190 3193 5310 5313 

$LSKO = 000000 1129@ §=61131 1136 1141 

$LSTIN= 000000 7508 751@ 1129 1132 1133 1136 1137 1138 1141 1143 1144 1149 1151 
1154 1155 1156 1168 1169 1170 1171 1172 1174 1175 1176 1177 1178 
1180 1181 11835 11864 1185 1188 1189 1190 1192 1193 1196 1197 
1198 1223 i227 1228 1229 1253 1234 1235 1236 1238 1239 1240 1241 
1242 1243 1244 5 1246 1247 1250 1251 1257 1 1278 
1283 1284 1286 1267 1288 1 1296 13035 1307 308 1309 1310 1314 
1315 1316 1319 1 1324 1325 1326 1330 1334 1335 1336 1341 1342 
1343 1 1345 1346 1347 1356 1358 i 1383 1385 1386 1387 


1497 1499 1500 1501 1502 1503 1 1510 iS11 1512 1513 1514 1516 
1519 1524 1562 1563 1564 1565 1567 1568 1569 1570 1589 1590 1593 
1595 1596 1597 1599 i 1602 1604 1606 1628 1642 1643 1644 1645 
1646 1648 1652 1653 1655 i 1661 1662 1663 1669 1670 1671 1672 
1673 1675 1683 1 1 1691 1694 1696 1697 1699 1700 1714 1717 
1718 1726 1727 1729 1736 17935 1794 1795 1796 1797 1799 1800 1801 
1803 1 1806 1807 1808 1 1810 1815 1814 1615 1858 1859 1860 
1861 1862 1863 1864 1867 1868 1871 1872 1875 1874 1875 1876 1879 
1860 1885 1885 1943 1944 1948 1949 1 1954 1955 1956 1961 1962 
1963 1968 1969 1975 1976 1978 1979 19835 1 1985 1989 1990 1991 
1996 1997 998 20035 10 2011 20135 2126 2128 2129 2131 2133 
2134 2136 2137 2140 2141 21435 2146 2148 2151 2 2 2159 2220 
2223 2224 2225 2226 2227 2228 2229 2231 2232 2233 2237 2238 
2242 2243 2301 23502 2303 2304 2310 2311 2312 
2315 2316 2317 2324 2325 2327 2328 2332 2333 2334 2335 
2336 2337 2340 2370 2375 2374 2377 2378 2379 2380 2 2384 2393 
2398 2404 2409 2410 2415 2414 2415 2418 2419 2420 2423 2424 2425 
2426 2423 2431 2432 2437 2438 2439 2440 2441 2442 2445 2446 2447 
2448 2455 2457 2458 2459 2462 2464 2465 2466 2470 2474 2475 2476 
2479 2480 2481 2482 2590 2591 2597 98 2603 2720 2721 2722 2723 
2724 2727 2731 2734 2903 2904 2905 2907 2908 2909 2910 2915 
2916 2918 2920 2925 2924 2925 2928 2931 2934 2935 2936 2939 
2942 2944 2945 2951 58 1 2967 2970 2977 2981 3135 3136 


K15 


CZLNADO LNOL TEST DNMAC X24.07-563 _10-APR-84 09:07. PAGE 7- 

CZ7LNAD.P11 «10 -APR-84 08:55 CROSS REFERENCE TABLE = USER SYMBOLS SEQ 0166 
3186 3188 #3189 3191 3390 3391 3392 3393 3394 3395 3396 3397 3398 
3399 3400 3401 3402 3403 05 3413 3416 3418 3419 £3424 #3425 
3426 3427 3429 3431 £3432 3433 3435 3441 3442 £3443 4 3446 #43448 #« #8 3451 
3452 345300C'(—i‘«#4SACCO8456020OCi8458 23.459 60 3462 3476 3477 43478 #%3481 3483 


5312 5314 5315 5316 
$LSTTA= 000000 750@ 752e@ 1129 1131 1136 1141 1149 1153 1174 1175 1176 1180 1184 
1186 1190 1194 1236 1247 1252 1252 1254 1261 1286 1269 1294 1310 


1793 1796 1798 1 1807 1810 18613 1814 1858 1859 1861 1863 1867 
1871 1873 1875 1879 1882 3 1949 1 1956 1961 1963 1976 1964 
1989 1991 1 i 2011 2128 2134 2136 2141 2143 2146 2148 2154 
2159 2222 2226 2228 2230 2233 2300 2302 2304 2311 2316 2324 
2326 2328 2333 2335 2340 2372 2377 2383 2411 2414 2417 2418 
2425 2427 2445 2457 2461 2462 2464 2474 2478 2480 2591 2598 2724 
2727 2731 2734 2915 2916 2918 2920 2923 25 2928 2931 2934 2936 
2939 2942 2945 2961 2970 2977 2961 3160 3162 
31635 3165 3169 3172 3177 3180 3186 3188 3189 3191 3413 3416 3419 
3424 3427 3433 3435 3451 3454 3456 
3478 3481 3483 3485 96 3706 3710 3715 3717 3721 3726 e 
3849 3855 3858 3993 995 4213 4217 4220 4225 4226 4230 4234 4237 
4240 4246 4261 4269 4272 4491 4493 4502 4507 4516 4518 4S25 
4530 4542 4545 4554 4556 4558 4560 4851 4858 4916 4919 4921 4924 
mtg: 4929 4931 4934 4941 4944 4950 4951 5190 5193 5208 5313 
1 

$SNESTL= 177777 750@ 11298 #1131 1136 1141 1149@ 11514 1153@ 11748 #%1175@ 1178 #1180 #£«1184 
1186@ 11908 1192@ 11940 1223@ 12270 1236 1239@ 1247 1252@ 1253¢ 1254 12614 
1283¢@ 1286 12689@ 1294@ 130 1307@ 1310 1314@ 13160 13198 13232 13242 #1325 
13260 1331¢@ 13320 1333@ 1334@ 1336 | 1 1349@ 1350@ 13562 13872 1390 
1403@ 14060 14310 1433@ 1439%@ 14420 14590 1492@ 14998 1507@ 15108 15178 1519¢ 
iS22e@ §61565¢@ 1 1590@ 1600@ 1602@ 1605¢ 1606@ 16435@ 16498 16528 1655% 
1655¢@ 16560 1665@ 1670@ 16760 16640 1717@ 1718@ 1793@ 17948 #«®1796 
1798¢@ 1607@ 18100 1813@ 1614@ 1858@ 1859@ 1861 18630 18672 18712 18732 
1875@ 18790 1 18620 18830 194 1954¢e@ 1 1961 19658 19762 19842 1989 
1991@ 19960 19960 20110 21280 21340 21360 2141@ 21438 2146@ 21488 21522 2154¢% 
21599 22220 22260 22260 22300 223530 22420 2302@ 23040 23098 23112 2316¢° 
2324@ 23260 23280 23530 2335¢@ 23400 23708 23728 23770 £%23798 2383 23842 2411 
24140 2417@ 24180 24190 2425 24270 2453@ 2457 2461¢ @# 24645 24702 
2474 2478@ 24800 25910 25980 27240 e2727¢ 27310 27340 29138 2916 2918% 2920% 
29230 29250 29280 29310 29340 29360 29590 20 29512 a 
29619 29670 29709 2977@ 29810 3160@ 31620 31658 3165@ 31698 31728 31772 1%3180° 
31866 31866 31890 31910 34130 34160 34190 3424e 3427 3433@ 343552 3443¢ 
34460 34480 34514 ® 34560 34600 34620 34780 34810 34852 34852 36962 99% 


= o 


CZLNADO LNOL TEST ONMAC X24.07-563__ 10-APR-84 :07. PAGE 7- 
CZLNAD.P11 10-APR-84 08:55 CROSS REFERENCE TABLE -~ USER SYMBOLS SEQ 0167 


5317¢ 
$NSKO = 000110 1129@ 3=61151 1136 1141 1149 1151 1153 11744 #1190 11926 861194 12234 1254 
1261 12830 1286 1289 12940 1356 13870 1390 14030 1406 1431 1433 1439% 


22226 2242 23000 2316 23240 2340 23700 2372 23774 24119 2418 2419¢ 
2425 2427 24450 2462 24646 2480 25914 2598 27246 #82727 27319 2734 29134 
2916 2918 2920 2923¢@ 2951 2958 2961 29674 70 2977% 2981 3160¢@ 3162 
31632 3165 3169%@ 3172 3177@ 3180 31669 3188 31894 3191 34138 3416 34194 
3424 34270 3433¢@ 3435 34430 3451 34544 oe 3462 34786 3481 
3483e@ 3485 3696@ 3699 3706@ 3710 3715@ 3717 37219 3726 38486 3856 39934 
3995 4213 4217 42206 4250 42340 4246 42614 42 42696 4272 4491¢ 4493 


$NSK1 = 000210 1175¢@ 1178 1160@ 1184 1186 1227@ 1236 1253 13036 1350 16534 1655 1794¢ 
1796 1798 1800@ 1807 1810@ 1813 18599 1867 18719 1879 18609 1882 19544 
9 1961¢@ 1963 1991 ® 1998 2134@ 2136 21414 2143 2146 2148 
2152e@ 2 22260 2228 22306 2235 23020 2309% 2311 2326 2328 23334 
2335 2379@ 2383 2414@ 2417 24530 2457 2461 2470% 2474 2478 
2936¢ 2946¢ 6¢ 48 38490 3855 42219 4223 42246 4226 42354 
4237 4238@ 4240 4944@ 4950 

$NSK2 = 000210 1239% 1247 1252 1307@ 1310 1333 1334¢@ 861336 1349 18619 1863 18732 1875 
29288 2931 2939@ 2942 

SNSK3 = 000110 1314@ 1325 1332 1346@ 1348 

SNSK4 = 000110 1316@ 1324 1326@ 1331 

$NSKS = 000110 1319¢ 1323 

$SAVE = 050004 750@ 11298 #11490 

$SAVE2= 050005 11294 

$SAVLE= 177777 750@ 1129° 1149@ 11740 11780 13240 #13560 14066 14310 1459 15699 15908 1653¢ 
1684@ 17180 17930 18000 18100 16863¢@ 186670 1875¢@ 18798 1883¢@ 19498 19542 1961¢ 
19848 19898 2136@ 2143@ 21486 21599 22260 22338 23008 23022 2309% #2324 


45600 4858@ 49190 492482 49290 49354¢ 4951¢@ 51930 

$SELLE= 000000 750@ #11290 #£«1131 1136 =—s« 1141 

$SSKO = 050545 1129¢@ 1149 11740 117680 13240 £13560 14060 1431@ 14598 #«*;15698@ 15908 1653 1684+ 
17186 17930 16000 186108 1 1867@ 1875@ 1879@ 18830 19499 19542 19612 19842 
1989¢ 21360 2143@ 21486 21598 22 22330 23028 235098 23242 $2326% 


$SSK1 = 000402 1129@ 1149 
$SSK2 = 050005 1129 1149 
$TAGLE= 177777 750@ 11298 1131 1136 1141 1149@ 11510 11530 1174@ #%(.1175@ 11788 #$=+|.J11808 # £=1184¢ 


M135 
CZLNADO LNO1 TEST ONMAC X24.07-563__10-APR-84_ 09:07, PAGE 7. 


CZLNAD.P11 — 10-APR-84 08:5 ABLE <= USER SYMBOLS wae 0166 


2923¢@ 29250 2928¢@ 2931@ 29340 29360 29390 29420 29454 64% & 29584 
2961@ 296780 29700 e2977@ 2981 31600 31620 31630 31650 31699 31728 31776 31804 
3186 3188@ 3189%@ 31910 34150 34160 34190 34240 34276 34296 34334 3 34434 
34462  3448@ 3451¢ ® 3456¢ 6 34620 634780 860634810 8634830 8634856 36994 


5317¢ 

$TAGNU= 050550 750 11298 1151@ 1174@ #+=#1175@ 1180 11840 «11920 12234 1227 1236 #=412398 #«*;‘1247% 
1254¢@ 1283@ 12860 1294@ 1303@ 1307 1310@ 13140 1316 13190 1325 13266 13344 
1336@ 13460 1387@ 1403@ 14310 14399 14590 £14 1510@ 15199 15654 15908 16024 
1606@ 16438 16520 16534 1670@ 16840 17170 17938 17948 17968 18008 1810¢ 
1858@ 18590 1861@ 18710 1873¢@ 1 1949@ 19540 19610 19840 1989 19966 21284 
21348 21419 e2 2152@ 22220 22260 22300 23008 23020 23090 23248 23266 #23334 
2370 23778 23798 24118 24148 24180 24199 24250 2445 2453@ 24578 24648 #$==2470% 
24746 2591@ 27240 2731¢ 2913 2918 29230 29 29288 29369 29394 29582 
29670 29778 3160@ 3165@ 3169@ 31770 31860 31890 3413¢@ 3419 34278 34339 
34460 34540 3460@ 3478@ 34830 36960 3706@ 37158 3721¢ 9¢ 39938 42134 
4220@ 42210 4224@ 4234@ 423550 42380 42610 42699 44919 4502@ 4516¢ 4S542¢ 
4554@ 4558@ 48510 49160 49210 4926@ 49310 49410 49446 5190¢ # $3108 $5315% 

$TEMP = 050547 750@ 1129¢@ 1131 1132@ 11330 11360 11370 #11386 11410 #11438 11448 #=°1149% #1153¢ 
11549 11550 11566 1169@ 11700 1171@ 11720 1174@ #=%$.11760@ 11778 1178 ##+$|.11818 #«»1182¢ 
1183@ 1184@ 1185@ 11860 1188¢@ 11899 111 1193@ 1194@ 1196@ 11988 12282 1229¢ 


1514@ 1516@ 15170 15220 15240 1565¢@ 15640 15670 1568@ 1569¢ 1 15908 159354 
1595@ 15960 15978 1599¢ 1600 1604@ 1605@ 16080 1628 16420 1644¢ S@ 1646¢ 
16480 1649@ 1653@ 1655¢@ 16560 1661 1662¢ 1665¢ 16699 1671@ 16722 #16735% 
1675¢@ 1676¢ 1684¢ # 16910 16940 16960 1697@ 169% 17008@ 1714@ #1718? 
17260 1727@ 17290 17360 #£=#.17930 = 17 1796@ 17978 #17988 #17998 18008 18012 1805* 
18040 18060 18076 1808@ 1809¢ 1610@ 18130 1814@ 18158 1858¢@ 1859% 1 1861? 
18620 168630 18640 1867%@ 18680 18710 18720 18730 186740 1875@ 1876@ 1879% #« 1882? 
1883% 1885@ 19434 19440 19480 1949¢@ 19500 19540 1955¢ 1 1961@ 19620 19635¢ 
19686 19690 19750 19760 1978@ 1979%@ 1963@ 19840 19858 19898 19912 1996% 


Nis 


CZLNADO LNOL TEST X24 .07-563 ? PAGE 7 

ESENAD PLT GOLAPR-84 bOcSS CROSS REFERENCE TABLE -~ USER SYMBOLS ame 0109 
23730 23740 «4023770 «2378 «= 2380 «= 23820 «23830 «023840 «= 23930 «23980 «24040 © 24090 ~=- 24106 
3413@  2415@ 2417@ 24180 24200 24230 24250 24260 24270 «3a 24310 24328 34376 


2905@ 29060 2907@ 29080 2910@ 29130 29164 29184 2 29230 29246 2925¢ 
2928 29319 2932@ 29340 2935¢ 2936¢ 39¢06=— 29420 = 29444 29519 29584 
29619 2967% 7 2977@ 29810 31350 31360 31374 31386 31398 31408 31414 3160¢ 


3485¢@ 36740 3675@ 36760 36776 36780 j$.$%3679% 36810 36964 37 3710¢ 
3715@ 37170 37210 37260 38470 «3864 38494 38550 38580 38630 39914 39924 
4192 41930 41946 4195@ 4196@ 42130 4217@ 42200 42230 42268 42300 42348 #42374 


4909 4910 49119 49120 4913¢@ 4915¢@ 4919 49200 49244 49254 49300 49344 
4939@ 49400 49440 49500 49516 5173¢@ 5174¢ #+°51756 51766 51776 51786 51798 5180¢ 
51886 5189@ 5193@ S202 5203@ S5206@ 5290@ 5311%@ 53120 5313@ 5314¢ 53166 5317¢ 

$TSKO = 050547 1129% 1149 1151@ 1153 1174@ #81190 1192¢@ 1194 12230 12544 1261 1283¢ 12864 
1289 12948 1356 1387@ 1390 1403@ 1406 14319 1433 1439@ 1442 14599 1492 
1499 1507 1510@ 1517 1519@ 1522 1565¢ 1569 1590@ 1 1602e@ 1605 16064 
1608 1643@ 1649 1652 16 1665 16708 1676 16849 1686 1717@ 1718 
1793@ 1814 1858@ 1883 1949@ 1976 1984@ 2011 21268 2159 2222% 2242 
2316 2324¢@ 2340 2370@ 2372 23770 384 24119 2418 2419%@ 2425% 2427 2445¢ 
2462 24648 2480 2591¢ 27240 82727 27319 #2734 2913% 2916 
2923 2 2958¢ 29674 70 2977@ 2981 31606 3162 3163@ 3165 3169% 
3172 3177@ 3180 31860 3188 3189¢@ 3191 34130 3416 3419 3424 3427 
3433¢@ 3435 3443¢ 51 34540 34608 3462 34784 1 34834 36964 

3706@ 3710 3715@ 3717 37210 3726 3848@ 3855 39938 3 42132 4217 
4220@ 42350 4234@ 4246 42610 4269¢ 4272 4491@ 4493 45022 #4507 45164 
4518 4525¢@ 4530 4342¢@ 4545 4554¢@ 4556 4558¢ 46851¢ 4858 4916@ 4919 
see” te tre 4929 4931¢@ 4934 4941¢@ 4951 51906 5195 52048 5310 
1 

$TSK1 = 050545 1129 1141¢@ 1149 1174@ 1190 12270 1236@ 1253 12948 1356 1403@ 1406 1431i¢ 
1433 1459@ 1492 1565¢@ 1569 1590¢ 1600 1653¢@ 1655 16840 1686 17172 1718 
1793@ 1814 1858@ 1685 1949%@ 1976 1984¢@ 2011 2128¢@ 2159 2226% 2228 22304 
2233 23500@ 2316 2324¢ 2340 2377% 2384 24140 2417 24458 2462 24642 2480 
25919 2598 27240 2727 2731¢ 27 29135@ 2916 2918¢ 29234 29584 

2967@ 2970 2977¢ 3160¢@ 3162 3163@ 3165 3169@ 3172 3177@ 3180 

3186¢@ 3188 3189@ 3191 34130 3416 3419@ 3424 3427@ 3429 3433¢@ 3435 3443% 
3451 3454¢ 34609 3462 3478@ 3481 3483¢@ 3485 3696% 3699 3706%@ 3710 
3715¢@ 3717 37210 3726 8& 3856 3993@ 3995 42135@ 4217 42208 4230 4234¢ 
4246 42614 4269¢@ 4272 44910 4493 4S502¢@ 4507 4516%@ 4518 4S25% 45350 
4542¢ 4545 4554¢@ 4556 4558¢ 4851¢ 4916@ 4919 4921%@ 4924 4926% 
4929 4931¢ 4934 49410 4951 5$190@ 5195 5204¢@ 5208 

$TSK2 = 050536 1129@ 11560 1149 1175@ 1178 1180@ 118648 #1186 1239@ 1247@ #1252 1303% 1350 
1653¢@ 1655 17940 17960 £1798 18008 1807 1810@ 1815 1859@ 1867 18712 1879 
1880@ 1882 1954¢ 1961¢@ 1963 1989¢@ 1991 19964 2134¢@ 2136 21414 
2143 21469 2146 21524 2154 2226% 2228 22300 22355 2302¢ 2309% 2311 


2934 2936¢ 2945 29464 2950 3446¢ 3448 3849¢@ 3855 4221% 4223 42248 4226 
4235¢@ 4237 4238@ 4240 4944@ 4950 
$TSK3 = 050541 1129 11314 1149 1175@ 1178 1307 13108 1533 1334¢@ 1336@ 1349 18002 1807 


41 
b14 
ZLNADO LNOL TEST DNMAC X24.07-563 10-APR-84 09:07 PAGE 7-32 SEQ 0170 
CZLNAD .P11 10-APR -84 08:55 CROSS REFERENCE TABLE -- USER SYMBOLS 


1810@ 18615 18590 1867 1871°@ 1879 19540 1956 19610 1963 19890 §61991 19966 
1998 21340 2156 2141@ 2145 Loe 2148 25020 2304 23090 2311 23269 2328 


2333e@ 2335 2925¢@ 2934 29360 294 34460 3446 38490 3855 49440 4950 

$TSK4 = 050321 PE be LS eg 13140 1325@ 1332 13460 1348 18610 1865 1673e@ 18675 29280 2951 

sTSKS = 050324 1129@ 1136 1141 1149 1316@ 1324 13260 15331 166190 1863 16730 1875 29280 
2931 2939@ 2942 

$TSKo = 050040 1316@ 1324 

$TSK7 = 050041 1319@ 1323 

$i = 000403 1174@ 1431@ 14590 15900 1655@ 16840 1793@ 18000 18100 1858¢@ 18590 18610 #£1871¢ 
18730 19490 1954@ 19610 19840 #19890 9960 21280 21460 22260 23000 23020 2309 
2324@ 23260 235330 23770 24450 24640 #27240 #%$(}27319 29130 29180 29230 29250 29280 
29360 29390 29670 2977@ 31600 31630 31690 31770 31869 51890 34130 434466 


$$ARGC= O00000 7500 
$sBrTE= 000403 750@ 1151 1175@ 41180@ 1192 #12230 12270 «512399 12630 1294@ 1303@ 13078 £13140 


$$CASE= 000404 750@ 11290 113516 11360 #«1141¢ 

$sOST = 0000357 7500 22248 

$SELOC= 000402 750@ 1151@ 1153@ 11800 #1184 1166@ 11920 11940 12230 12278 1236 1239 1247 
1252¢ 12535@ 1254 1261@ 1283@ 1286 12690 13030 13078 #1310 13146 13190 # 13234 
1325 13260 13310 1332@ 1333@ 13340 #1336 13460 13480 13499 13500 13870 1390¢ 
1439@ 14420 14 1507@ 15106 15176 1519@ 15220 16020 16050 16060 16060 1643¢ 
1649@ 16520 1656¢@ 1 1665@ 16700 16760 17940 1796 17960 18800 1882¢@ 21520 


$SERFL= 000000 750¢ 

$$FLAG= 000001 750@ 11510 11530 11750 1180@ 118660 11920 1194@ 12230 1227@ 12398 1252¢ #8 12530 
12610 1283@ 12890 12940 13030 1307@ 13140 1316@ 13199 1323¢ 13260 13310 # «13320 
133530 13340 13460 1548@ 1349 13509 1367@ 1 1403@ 14390 1442e@ 14998 #15078 
1510@ 15170 1519¢@ 15220 5@ 16020 16050 16060 16088 16430 16490 16528 1656 
1 1665@ 16700 1676@ 17170 17940 «17986 #=<18800 18820 21348 ##2141@ #=+21528@ 2154¢ 
22300 23700 23720 2379@ 23835¢@ 24140 24170 24190 24270 2453@ 24618 24708 24780 
25919 29460 . 90 34270 34350 34430 £34549 600@ 34780 39930 42210 42250 
42240 42260 423550 42370 42360 42400 42610 42690 44910 45020 45160 4542e@ 45549 
4556@ 48510 4916@ 49210 49260 49310 49410 51900 5$310@ 5313¢ 53150 53170 

$$FRMB= 000000 1335¢ 

$$FROM= 000000 7500 13350 

$sIN ‘= 000000 13350 

$$INH = 000403 750@ 1129@ 11510 1175@ 1180@ 11920 1223@ 12270 1239 12830 «412940 1303@ 8 13078 
13140 13160 1319@ 1326@ 13340 13460 1387@ 14030 14398 £=1499@ #+1510@ 15198 #1565¢ 
1602e@ 16060 1643¢@ 16520 1 16700 17170 17948 «1 2134@ 21418 21528 22500 
2370@ 2379@ 24146 24180 24190 24530 24700 25910 ® 34190 34270 34330 344354 
34540 34 34786 39930 42210 42240 4235@ 423860 42618 42690 4491@ 4502@ 45160 
43420) §=64554@)§=6.45580) §=—4851@ 894916 49210 49260 49319 4941¢@ 5190@ 5204@ 535108 53515¢ 

$$LOC = 102165 750@ 1129 11510 11750 11800 1192@ 12230 12270 # 12590 2<83e@ 1294@ 1303@ 15079 


C14 


SStNab ey Yt "S3 apr 84 Byr'8s Me OT OS Aes REE Phe nee Pha PACE heea SYMBOL S 


$$LOCN* 
$sOUT = 
$$REG = 
$S$RETU= 
$$RTN1= 
$$RTN2= 
$$SRC = 
$$TGSv= 
$$TGS1= 
$$TGSe2= 
$sTO = 
$$TOB = 
$sTOTL= 
$$$TAG= 


. ABS. 


ERRORS DETECTED: 


105544 


105544 


37100 
451890 
5208¢ 


3717¢ 
45300 


37260 
45459 


1136¢ 


38550 
45560 


11414 


38580 
45600 


11494 


CZLNAD.CZLNAD.SEQ/CRF :SYM/DOC =SPMACJ/ML , SVC33/ML ,CZLNAD.P11 


RUN-TIME. 


134 135 6 SECONDS 


RUN-TIME RATIO: 585/276<2.1 


CORE USED: 
DOCUMENT PAGES: 


32k 


(63 PAGES) 


3995¢ 
4858¢ 


42170 
49196 


4929 
52570 


42500 
49249 


42460 
492946 


42649 
49346 


42726 
49504 


5357¢e 


44930 
49519 


SEQ 0171 


450796 
51939 


1294 
1434 
1670 
1880 
2161 
2453 


2346 
32355¢ 
3460 


3858 
4238 
4518 
4851 
4957 


